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ABSTRACT 

1.0 ABSTRACT 



THIS IS A PDP-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITV 
OF A TU80 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM. 
THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. REFERENCE THE FOLLOWING 
DIGITAL EQUIPMENT DOCUMENTS: 

1. ENGINEERING SPECIFICATION FOR TU80 MAGTAPE CONTROLLER; DOCUMENT 
NUMBER: YM-C194D-022; REVISION NUMBER 2: DATE: 28-JUL-81. 

2. ENGINEERING SPECIFICATION FOR TU80 DIAGNOSTIC PACKAGE; DOCUMENT 
NUMBER: YM-C194F-00; REVISION NUMBER 0; DATE: 2-SEP-81. 

3. ENGINEERING SPECIFICATION FOR TU80 MAGTAPE SUBSYSTEM; DOCUMENT 
NUMBER: YM-C19AS-02; REVISION NUMBER 3; DATE: 10-JUN-81. 

4. CIQPMAO XXDP> PROGRAMMER'S MANUAL; DOCUMENT NUMBER AC-S296A-AC; 
DATE: U JULY 1980. 
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HARDWARE, SOFTWARE REQUIREMENTS AND PREREQUISITES 

2.0 HARDWARE, SOFTWARE REQUIREMENTS AND PREREQUISITES 

2.1 HARDWARE REQUIREMENTS 



PDP-11 /LSI FAMILY PROCESSOR WITH 32K WORDS OF MEMORY 
TU80 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/O PAGE) 



2.2 OPTIONAL HARDWARE: 

UP TO 8 TU80 CONTROLLERS PER PDP-11 UP TO 1 DRIVE PER CONTROLLER 



2.3 SOFTWARE REQUIREMENTS 



PDP-11 DIAGNOSTIC SUPERVISOR (HSAADO.SYS) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP^) 



2.4 PREREQUISITES 



FUNCTIONAL PDP-11 FAMILY CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
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OPERATING INSTRUCTIONS 

3.0 OPERATING INSTRUCTIONS 

3.1 OPERATOR COWMNOS 



SEQ S 



THE TU80 DIAGNOSTIC IS A PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
PDP-11 PROGRAMMER'S MANUAL "CIQPMAO XXDP* PROGRAMMERS MANUAL, NUMBER 
AC-S296A-AC. THE OPERATOR RESPONSE IS IN QUOTES. 

BOOT THE DIAGNOSTIC XXDP MEDIA 

CHMDLBO XXDP*^ DL MONITOR 28K 
BOOTED VIA UNIT 0 

ENTER DATE (DD-MMM-YR); •?9-JAN-82" 
RESTART ADDRESS: 153726 
50 HZ? N " <CR> " 
LSI? N " Y 

THIS IS XXDP*. TYPE "H" OR "H/l" FOR DETAILS 
R CZTUYAO 

CZTUYABINDRS LOADED 

DIAG. RUN-TIME SERVICES REV D. APR 79 

CZTUY-A-O 

****TU80 LOGIC DIAGNOSTIC**** 

UNIT IS TU80 

DR> STA/FLA:PNT:HOE " 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE 'T>RINT EACH TEST NBR AS EXECUTED" AND '>1ALT ON 
ERROR". 

3.2 HARDWARE PARAMETERS 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 

ON A "H" (NO) RESPONSE TO THE "CHANGE HW?" QUESTION, THE DIAGNOSTIC WILL 
NOT RUN. IT WILL GIVE THE MESSAGE "HO UNIT". A 'T' IS REQUIRED AND AT 
LEAST A "1" IS REQUIRED AT THE "0 UNITS (D)?" QUESTION. 

TSBA/TSDB = 172520, VECTOR = 224 

ON A "V" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, If PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
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SEQ 6 



DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "(L)" INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
•r* FOR YES, "H" FOR NO. 



# UNITS (D) ? 



<ENTER THE NUMBER OF CU132 CONTROLLERS 
PRESENT TO BE TESTED> 



UNIT 0 

DEVICE ADDRESS 



(0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 



VECTOR (0) 224 ? 



<ENTER ADDRESS OF 
VECTOR> 



INTERRUPT 



THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "# UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO EIGHT UNITS CAN BE 
SELECTED FOR TESTING. 



3.3 SOFTWARE PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE; 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 

INHIBIT ITERATIONS (L) N ? <TYPE 'V TO PREVENT MULTIPLE 

ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS.> 
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OPERATING INSTRUCTIONS • SAMPLE PRINTOUTS 

4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 

4.1 SUCCESSFUL RUN EXAMPLE (PDP-11 /LSI) 

TST: 001 SPACE RECORDS TEST 

TST: 002 REREADS TEST 

TST: 003 URITE DATA RETRY TEST 

TST: 004 WRITE TAPE HARK TEST 

0 ERRORS 

NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 



SEQ 7 
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OPERATING INSTRUCTIONS > SAMPLE ERROR MESSAGES 



SEO 8 



5.0 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 

ERROR MESSAGE EXAMPLE 1 

TST: 001 FIFO EXERCISER TEST ^ 

CZTUY HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 

FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 

TAPE BUS SIGNALS IN WORD #8: - DESIGNATOR <BIT 0> 

PARERR<15> lEOT <12> IFMK <9> IRDY<6> IRWD<2> 

IRESV2<14> nDENT<11> IHER <8> I0NL<5> |FBV<1> 

IRESV1<13> ICER <10> 1SPEED<7> ILDP<4> IFPT<0> 
TAPE BUS SIGINALS IN WORD #9: 
DATMIS<7> ILW<6> 0UTRDV<5> INRDY<4> 
MESSAGE BUFFER ADDRESS = 047352 
MESSAGE BUFFER CONTENTS: 
WORD »0 EXPD: 100020 RECV: 



WORD #1 EXPD: 
WORD #2 EXPD: 
WORD #3 EXPD: 
WORD #4 EXPD: 
WORD 05 EXPD: 
WORD »6 EXPD: 
WORD 07 EXPD: 
WORD #8 EXPD: 
WORD #9 EXPD: 



000012 
000000 
000010 
000000 
000000 
000000 
000000 
070217 
000074 



100020 

RECV: 000012 

RECV: 000000 

RECV: 000010 

RECV: 000000 

RECV: 000000 

RECV: 000000 

RECV: 000000 

RECV: 070217 

RECV: 000034 



XOR: 000000 
XOR: 000000 
XOR: 000000 
000000 
000000 
000000 
000000 
000000 
000000 
000040 



XOR 
XOR 
XOR 
XOR 
XOR 
XOR 
XOR 



ERROR MESSAGE EXAMPLE 2 



CZTUY HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COHNAND 

TSSR = 100214 

TSSR BITS SET: SCSSR 

TERMINATION CLASS CODE = UNRECOVERABLE ERROR 



PACKET ADDRESS 
PACKET WORD 0 
PACKET WORD 0 
PACKET WORD # 
PACKET WORD # 



026420 
140010 
000010 
000000 
000024 

ERROR MESSAGE EXAMPLE 3 



CZTUY HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES NODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 
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PROGRAM RUN TIMES 

6.0 PROGRAM RUN TIMES 



THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES^ ARE 
TO BE USED AS A GUIDE. THE TIMING UAS DONE ON A PDP-11/23 (LSD 
PROCESSOR UITH A LA-34 CONSOLE. 

THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, UITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A 'T' (YES). 



TEST 
NUMBER 
1 
2 
3 
4 



N/I 
SECS. 
1 
1 
1 
1 



NUMBER 
ITER 
1 
1 
1 
1 



DEF 
SECS. 
0 
0 
0 
0 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 8 IN ONE COMMAND: 



Q.V. 7 MINUTES 

DEFAULT 31 MINUTES 
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7.0 TEST SUMMARIES 
7.1 TEST 1 - SPACE RECORDS TEST 

* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 

* ANY TAPE ERRORS UILL BE DISPLAYED AS TAPE STATUS ALERT • 
*•******************************************%******************** 

THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY UHEN SPACING 
OVER NORMAL DATA RECORDS. OPERATION UHEN SPACING OVER TAPE MARKS 
IS VERIFIED IN A SUBSEQUEN1 TEST. THE BASIC WRITE DATA TEST 
SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 
OF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 
OF VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH 
RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER 
EACH SPACING OPERATION. THE TAPE POSITION IS VERIFIED BY READING 
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
THE EXPECTED RESULT. 

7.1.1 TEST 1, SUBTEST 1;- 

THIS SUBTEST VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH 
THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE VOLUME 
CHECK FLAG (VCK) IS SET. 

7.1.2 TEST 1« SUBTEST 2:- 

THIS SU6ETST VERIFIES THAT A SPACE RECORDS REVERSE COMMAND WITH 
THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE VOLUME 
CHECK (VCK) FLAG IS SET. 

7.1.3 TEST 1, SUBTEST 3:- 

THIS SUBTEST VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE 
RECORD OFF BOT AND CAUSE BOT STATUS TO BE CLEARED. 

7.1.4 TEST 1. SUBTEST 4.- 

THIS SUBTEST VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK 
OVER THE FIRST RECORD ON TAPE. 

7.1.5 TEST 1, SUBTEST 5:- 

THIS SUBTEST VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A 
MULTIPLE NUMBER OF RECORDS (2 THROUGH 64K, OR THE MAXIMUM 
NUMBER OF RECORDS WRITTEN ON THE TAPE, WHICHEVER IS LESS.). 



1 

J 



' ' Sfon 

CZTUYAO TU«0 fROKT END PRT C MACRO H1200 29-HAR-83 13:45 PAGE 11-1 
USER DOCUMENTATION 

7.1.6 TEST 1, SUBTEST 6:- 

THIS SUBTEST VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A 
MULTIPLE NUMBER OF RECORDS (2 THROUGH 64K« OR THE MAXIMUM^ 
NUMBER OF RECORDS URITTEN ON THE TAPE, UHICM CV^R IS LESS). 

7.1.7 TEST 1. SUBTEST 7:- 

THIS SUBTEST VERIFIES THAT SPACE RECORDS REVERSE ISSUED UHILE 
TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION UITH THE 
NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 

7.1.8 TEST 1, SUBTEST 8:- 

THIS SUBTEST VERIFIES THAT A SPACE RECORDS REVk'RSE COMMAND THAT 
CAUSES THE TAPE TO RUN INTO BOT (UITH THE TAPE NOT INITIALLY AT 
BOT) CAUSES A TAPE STATUS ALERT TERMINATION AND SETS THE REVERSE 
INTO BOT (RIB) STATUS BIT. 



7.2 TEST 2 - REREADS TEST 

THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDRIES. RECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIA3LE), AND BYTE-SWAP (SUP) AND OPPOSITE (OPP) 
CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS OH 
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG. RECORD 
LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES, 
AND DATA BUFFERS IN NONEXISTENT MEMORY. 

7.2.1 TEST 2, SUBTEST 1;- 

THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND UITH OPP=0 
AND SU8=0 OPERATES PROPERLY. THE TAPE IS FIRST REUOUND AND THEN 
URITTEN UITH A SERIES OF TAPE RECORDS VARYING IN LENGTH AND 
DATA CONTENT. THE TAPE IS THEN REUOUND AGAIN. FOR EACH RECORD 
THE TAPE IS SPACED FORUARD ONE RECORD AND THE REREAD PREVIOUS 
COMMAND IS ISSUED. RESULTS (STATUS, DATA, ETC.) ARE VERIFIED. 
THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET TO THE 
LENGTH OF THE EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS 
SHOULD OCCUR. 

7.2.2 TEST 2, SUBTEST 2:- 

THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND UITH OPP=0, 
AND SUB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS THE SAME AS THAT 
USED IN SUBTEST 1. BUT IT IS VERIFIED THAT DATA STORES BY THE 
COMMAND CONTAINS SUAPPED BYTES. 
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7.2.3 TEST 2, SUBTEST 3:- 

THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH 
OPP^I (READ REVERSE, SPACE FORWARD) AND SUB-0 OPERATES PROPERLY. 
THE TAPE IS FIRST REWOUND, AND THEN WRITTEN WITH A SERIES OF TEST 
RECORDS OF VARYING LENGTH AND DATA CONTENT: THE FIRST FOUR BYTES 
OF EACH RECORD CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH TEST RECORD THE 
FOLLOWING SEQUENCE IS EXECUTED: 

1. THE REREAD PREVIOUS COMMAND WITH 0PP«1 IS ISSUED AND 
THE RESULTS ARE CHECKED. 

2. A READ FORWARD COMMAND IS THEN ISSUED AND THE DATA IS 
CHECKED TO VERIFY THAT THE TAPE WAS POSITIONED PROPERLY 

AFTER THE REREAD PREVIOUS COMMAND (E.G. THE TAPE SHOULD HAVE BEEN 
LEFT POSITIONED AT THE START OF THE TEST RECORD.). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED PROPERLY 
AT THE START OF THE NEXT RECORD. 

THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET TO THE LENGTH 
OF THE EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 

7.2.4 TEST 2, SUBTEST 4;- 

THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP-1 
AND SWB-1 OPERATES PROPERLY. THE TEST SEQUENCE IS THE SAME AS THAT 
USED IN SUBTEST 3, BUT IT IS VERIFIED THAT DATA STORED BY THE 
COMMAND CONATINS SWAPPED BYTES. 

7.2.5 TEST 2, SUBTEST 5i- 

THIS SUBTEST VERIFIES THAT A REREAD PREVIOUS COMMAND READING A 
RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS 
ALERT TERMINATION WITH THE RECORD LENGTH LONG (RLL) BIT SET. 
RESULTS ARE VERIFIED FOR BOTH STATES OF OPP ( 0 AND 1 ). 

7.2.6 TEST 2, SUBTEST 6:- 

THIS SUBTEST VERIFIES THAT A REREAD PREVIOUS COMMAND READING A 
RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS 
ALERT TERMINATION WITH THE RECORD LENGTH SHORT (RLS) BIT SET. 
IT IS VERIFIED THAT THE RESIDUAL BYTE COUNTER (RBPCR) IN THE 
MESSAGE BUFFER CONTAINS THE APPROPRIATE NONZERO VALUE (E.G 
THE DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE ACTUAL 
RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH STATES OF OPP 
( 0 AND 1 ). 

7.2.7 TEST 2. SUBTEST 7:- 

THIS SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP^O 
AND SWB^O OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
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WRITTEN WITH A SERIES OF TEST RECORDS OF VARYING LENGTH AND DATA 
CONTENT. THE TAPE IS THEN REUOUND AGAIN. FOR EACH TEST RECORD THE 
TAPE IS SPACED FORWARD ONE RECORD AND A REREAD NEXT COMMAND IS 
ISSUED. RESULTS (STATUS, DATA, ETC.) IS VERIFIED. THE BYTE COUNT 
ON EACH REREAD NEXT COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 

7.2.8 TEST 2. SUBTEST 8:- 

THIS SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-0 
AND 3^8=1 OPERATES PROPERLY. THE TEST SEQUENCE IS THE SAME AS 
THAT USED IN SUBTEST 1, BUT IT IS VERIFIED THAT DATA STORED BY 
THE COMMAND CONTAINS SWAPPED BYTES. 

7.2.9 Tfc*T 2, SUBTEST 9:- 

THIS SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-1 
(READ FORWARD, SPACE REVERSE) AND SWB-0 OPERATES PROPERLY. THE 
TAPE IS FIRST REWOUND AND THEN WRITTEN WITH A SERIES OF TAPE 
RECORDS VARYING IN LENGTH AND DATA CONTENT; THE FIRST FOUR BYTES 
OF EACH RECORD CONTAIN ITS RECORD NUMBER (INDICATING POSITION 
ON TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH TEST RECORD 
THE FOLLOWING SEQUENCE IS EXECUTED: 

1. THE REREAD NEXT COMMAND WITH 0PP=1 IS ISSUED AND THE RESULT 
IS CHECKED. 

2. A READ FORWARD COMMAND IS THEN ISSUED AND THE DATA IS CHECKED 
TO VERIFY THAT THE TAPE WAS POSITIONED PROPERLY AFTER THE 
REREAD NEXT COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE READ FORWARD 
COMMAND LEAVES THE TAPE POSITIONED PROPERLY AT THE START OF THE 
NEXT TEST RECORD. 

THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET TO THE LENGTH 
OF THE EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 

7.2.10 TES1 2, SUBTEST 10:- 

THIS SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP^I 
AND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS THE SAME AS 
THAT USED IN SUBTEST 3, BUT IT IS VERIFIED THAT DATA STORED 
BY THE COMMAND CONTAINS SWAPPED BYTES. 

7.2.11 TEST 2. SUBTEST 11.- 

THIS SUBTEST VERIFIES THAT A REREAD NEXT COMMAND READING A 
RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG (RLL) 
BIT SET. RESULTS ARE VERIFIED FOR BOTH STATES OF OPP ( 1 AND 0). 



7.2.12 TEST 2, SUBTEST 12:- 
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THIS SUBTEST VERIFIES THAT A REREAD NEXT CONNAND READING A RECORD 
SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE CTAUTS ALERT 
TERMINATION UITH THE RECORD LENGTH SHORT (RLS) BIT SET. IT IS 
VERIFIED THAT THE RESIDUAL BYTE COUNTER IN THE MESSAGE BUFFER 
CONTAINS THE PROPER NONZERO MESSAGE (E.G. THE DIFFERENCE BETWEEN 
THE THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD LENGTH ). RESULTS 
ARE VERIFIED FOR BOTH STATES OF OPP ( 0 AND 1). 

7.2.13 TEST 2. SUBTEST 13:- 

THIS SUBTEST VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
NONEXISTANT KIIORY RECOVERABLE ERROR TERMINATION ( TC-4 OR 5) 
UITH NXH=1 AND THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 
ALL COMBINATIONS OF REREAD PREVIOUS/NEXT AND 0PP=0/1 ARE TESTED. 

7.2.14 TEST 2. SUBTEST 14:- 

THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS WITH OPP»0 (SPACE 
REVERSE, READ FORWARD) AND REREAD PREVIOUS UITH OPP^i (READ REVERSE 
SPACE FORWARD) ISSUED WHEN THE TAPE IS POSITIONED AT BOT CAUSES 
FUNCTION REJECT TERMINATION WITH THE NONEXECUTABLE FUNlTION (NEF) 
ERROR BIT SET. 

7.2.15 TEST 2, SUBTEST 15:- 

THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS WITH OPP^I (SPACE 
REVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPPsO ( READ REVERSE, 
SPACE FORWARD) ISSUED WHEN THE TAPE POSITIONED JUST bEFORE THE FIRST 
RECORD ON TAPE ( BUT NOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION 
WITH THE REVERSE INTO BOT (RIB) STATUS BIT SET. 



7.3 TEST 3 - WRITE DATA RETRY TEST 



* NOTE: THIS TAPE MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 

• ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT. * 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA). THE TEST CONSISTS 
OF THE FOLLOWING FIVE SUBTESTS. 

7.3.1 TEST 3, SUBTEST 1;- 

THIS SUBTEST VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION 
un» THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 
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7.3.2 TEST 3, SUBTEST 2:- 

THIS SUBTEST VERIFIES THAT A URITE DATA RETRY COWAND ISSUED UHILE 
THu TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE ( BUT NOT 
AT BOT) CAUSES TAPE STATUS ALERT TERmNATION« WITH THE REVERSE 
INTO BOT (RI9) STATUS ERROR BIT SET. 

7.3.3 TEST 3, SUBTEST 3;- 

THIS SUBTEST VERIFIES THAT A WRITE DATA RETRY CONNANO WITH SWB«0 
TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE (THE WRITTEN 
RECORD IS READ AND CHECKED). VARIOUS BYTE COUNTS AND DATA PATTERNS 
ARE USED. 

7.3.4 TEST 3. SUBTEST 4:- 

THIS SUBTEST VERIFIES THAT A WRITE DATA RETRY COMNAND WITH SWB=1 
TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE (THE WRITTEN 
RECORD IS READ AND CHECKED). VARIOUS BYTE COUNTS AND DATA PATTERNS 
ARE USED. 

7.3.5 TEST 3, SUBTEST 5:- 

THIS SUBTEST VERIFIES THAT A WRITE DATA RETRY COMMAND IS PERFORMING 
THE ERASE PART OF THE OPERATION BY PERFORMING THE FOLLOWING 
SERIES OF STEPS: 

1. T:4E tape is rewound and a series of RECORDS ARE WRITTEN 
WITH THE NORMAL WRITE DATA COMMAND. THIS SHOULD RESULT 
IN RECORDS SEPERATEO BY THE STANDARD INTERRCCORD GAP. 

2. A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING THE 
TAPE AND THEN CONTINUING THE NUMBER OF CYCLES THROUGH 
A PROGRAMMED LOOP REQUIRED TO SPACE OVER THE SERIES 
OF RECORDS WRITTEN IN THE PREVIOUS STEP. 

3. THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF RECORDS 
WRITTEN AGAIN. THIS TIME USING THE WRITE DATA RETRY 
COMMAND. THIS HOULD RESULT IN RECORDS SEPERATED BY A 

A LONG INTERRECORD GAP. 

4. THE TAPE IS AGAIN REWOUND, THE SPACING COMNANO ISSUED, 
AND THE NUMBER OF TIMING LOOP CYCLES COUNTED TO COMPLETE 
THE OPERATION. 

5. THE TWO LOOPS ARE COMPARED, CHECKING TO SEE THAT THEY 
DIFFER BY A SIGNIFICANT AMOUNT. 

7.4 TEST 4 - WRITE/READ TAPE MARK 



• NOTE; THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE 



SEC 16 
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• ANY TAPE ERRORS UILL BE DISPLAYED AS A TAPE STATUS ALERT • 

THIS TEST VERIFIES THAT THE WRITE TAPE HARK COMAND OPERATES 
PROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
BY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE 
TAPE MARK. IN ADDITION, SINCE WRITE TAPE MARK IS THE FIRST^^^^^^ 
SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED 
THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT 
FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 

7.4.1 TEST 4, SUBTEST 1;- 

THIS SUBTEST VERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE 
CODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED 
IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL VALID NODE CODES 
ARE CHECKED. 

7.4.2 TEST 4, SUBTEST 2:- 

THIS SUBTEST VERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL 
MODE CODE CAUSES FUNCTION REJECT TERMINATION WITH THE 
ILLEGAL COMMAND (ILC) ERROR BIT SET. ALL ILLEGAL MODE CODES 
ARE CHECKED. 

7.4.3 TEST 4, SUBTEST 3:- 

THIS SUBTEST VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE 
PROPERLY, AND THAT READ COMMANDS SUBSEQUENTLY ISSUED TO DETECT 
THE WRITTEN TAPE MARKSTERMINATE WITH THE TAPE STATUS ALERT 
WITH THE TAPE MARK DETECTED (TMK) STATUS BIT SET. THE FOLLOWING 
SEQUENCE IS EXECUTED: 

1. THE CONTROLLER IS INITIALIZED AND THE TAPE REWOUND. 
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT. 

2. A WRITE TAPE MARK COMMAND, WITH CVC^I, JS ISSUED 
AND PROPER TERMINATION AND STATUS IS VERIFIED (I.E. 
VCK-O, AND TMK»1>. 

3. SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH CVCrQ, 
ARE ISSUED AND PROPER TERMINATION (NORMAL) AND STATUS 
(TMK) VERIFIED 

4. A READ REVERSE COMMAND IS ISSUED AND PROPER TERMINATION 
(TAPE STATUS ALERT) AND STATUS (TNK) VERIFIED. IT IS 
ALSO VERIFIED THAT NO DATA IS TRANSFERRED INTO MEMORY. 

5. A SPACE RECORDS REVERSE COMMAND IS ISSUED AND PROPER 
TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK) VERIFIED. 

6. THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS ISSUED 
AND PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS 
(TMK) VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS 
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TRANSFERRED INTO MEMORY. 

7. A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A RECORD 
COUNT GREATER THAN 1 IS ISSUED, AND IT IS VERIFIED 
THAT TAPE STATUS ALERT TERMINATION OCCURED. TMK«1 AND 
THAT RBPCR (RESIDUAL BYTE/RECORD COUNTER) CONTAINS THE 
PROPER N0N2ER0 VALUE. THIS OPERATION VERIFIES THAT 
DETECTION OF THE TAPE MARK CAUSE THE SPACE RECORDS 
OPERATION TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE 
POSITION JUST BEFORE THE FIRS RECORD ON THE TAPE. 

8. TAPE POSITION IS VERIFIED BY ISSUING ANOTHER SPACE 
RECORDS REVERSE COMMAND AND VERIFYING THAT TAPE STATUS 
ALERT TERMINATION OCCURS, WITH THE REVERSE INTO 60T 
(RIB) ERROR STATUS BIT SET. 

9. A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A RECORD 
GREATER THAN 1 IS ISSUED AND IT IS VERIFIED THAT TAPE 
STATUS ALERT TERMINATION OCCURED, TNK«1, AND THAT 
RBPCR (RESIDUAL BYTE/RECORD COUNTER) CONTAINS THE 
PROPER NONZERO VALUE. THIS OPERATION VERIFIES THAT 
DETECTION OF THE TAPE NARK CAUSES THE SPACE RECORDS 
OPERATIONS TO PREMATURELY TERMINATE. 



002000 
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791 
792 
798 

799 000000 

800 

801 

807 000000 
808 

809 002000 
002000 

810 

811 
812 
813 
8U 
815 
816 

817 002000 

818 002000 
002000 
002000 
002001 
002002 
002003 
00200A 
00200S 



002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
0020U 
0020U 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 
002034 
002034 
002036 
002036 
002040 
002040 
002042 



103 
132 
124 
125 
131 
000 
000 
000 

101 

060 

000001 

001217 

072246 

072406 

002124 

002134 

073350 

000000 

000000 

000000 

000000 

072574 



INITIALIZE SUPERVISOR HACROS 
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.SBTTL PROGRAH HEADER 

.NCALL SVC 

SVC 

.ENABLE LC 
.NLIST BEX.CND 
.ENABL AHA.ABS 
. ' 2000 ^ 
BGNNOD TUV2A 

TUV2A:: 

i^TNE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER BGNSU,BGNSFT.BGNAU,BGNDU,BGNRPT.BGNSETUP 
HEADER CZTUY,A,0«6S5..0 
LSNAHE:: .'DIAGNOSTIC NAME 

.ASCII /C/ 
.ASCII /Z/ 
.ASCII /T/ 
.ASCII /U/ 
.ASCII /y/ 
.BYTE 0 
.BYTE 0 
.BYTE 0 

.•REVISION LEVEL 

;0 

; NUMBER OF UNITS 
.•LONGEST TEST TIME 
: POINTER TO H.U. QUES. 
; POINTER TO S.U. QUES. 
;PTR. TO DEF. H.U. PTABLE 
:PTR. TO S.U. PTABLE 
;DIAG. END ADDRESS 
.RESERVED FOR APT STATS 

.•DIAGNOSTIC TYPE 

;APT EXPANSION 

;PTR. TO DISPATCH TABLE 
TCH 

:DIAGNOSTIC RUN PRIORITY 



SEQ 18 



LSREV: : 








.ASCII 


/A/ 


LSDEPO: 


• 






'.ASCII 


/O/ 


LSUNIT: 








'.WORD 


TSPTHV 


LSTIML: 


• 


655. 




'.WORD 


LSHPCP: 


• 






'.WORD 


LSHARD 


LSSPCP: 








'.WORD 


LSSOFT 


L$HPTP: 


• 






'.WORD 


LSHU 


L$SPTP: 


• 






'.WORD 


LSSU 


LSLADP: 






'.WORD 


LSLAST 


LSSTA:: 








.UORD 


0 


LSCO:: 








.WORD 


0 


LSOTYP: 


• 






'.WORD 


0 


LSAPT:; 








.WORD 


0 


LSDTP:: 








.WORD 


LSDISP 


LSPRIO: 
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002042 


000000 


LSENVI: 


.WORD 


00204A 






0020AA 


000000 


LSEXPI : 


.WORD 


002046 




• 


002046 


OOOO'^O 


L$MREV: 


'.WORD 


002050 






002050 


003 




'.BYTE 


002051 


003 


L$EF:: 


.BYTE 


002052 




.WORD 


002052 


000000 




002054 


000000 




.WORD 


002056 




LSSPC:: 


.UORD 


002056 


000000 


LSDEVP: 


002060 






002060 


003334 


LSREPP: 


'.WORD 


002062 






002062 


023062 


LSEXP4: 


'.WORD 


002064 




'.WORD 


002064 


000000 


LSEXP5: 


002066 






002066 


000000 


LSAUT:: 


' WORD 


002070 






002070 


022560 


LSDUT:: 


.WORD 


002072 






002072 


022656 


LSLUN: : 


.WORD 


002074 






002074 


000000 


LSDESP: 


.WORD 


002076 




• 


002076 


003342 




.WORD 


002100 




LSLOAO: 


• 

• 


002100 


104035 


LSETP:: 




002102 






002102 


000000 


LSICP;! 


.UORD 


002104 






002104 


021762 


LSCCP:! 


.WORD 


002106 






002106 


023040 


L$ACP: ! 


.UORD 


002110 






002110 


022764 


LSPRT:. 


.WORD 


002112 






002112 


021752 




.WORD 


002114 


LSTEST. 




002114 


000000 




'.WORD 


002116 




LSOLY:: 




002116 


000000 


LSHINE. 


' .WORD 


002120 






002120 


000000 




' .WORD 
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SEQ 19 



0 
0 
0 



; FLAGS DESCRIBE HOW IT WAS SETUP 
.•EXPANSION WORD 



;SVC REV AND EDIT « 
CSREVISION 
CSEDIT 

:DIA6. EVENT FLAGS 

0 
0 



LSDVTYP 
LSRPT 
0 
0 

LSAU 
LSDU 

0 

LSDESC 
ESLOAD 
0 

LSINIT 

LSCLEAN 

LSAUTO 

LSPROT 

0 

0 

0 



: POINTER TO DEVICE TYPE LIST 
:PTR. TO REPORT CODE 



:PTR. TO ADD UNIT CODE 
;PTR. TO DROP UNIT CODE 
;LUN FOR EXERCISERS TO FILL 
.•POINTER TO DIA6. DESCRIPTION 
.•GENERATE SPECIAL AUTOLOAD EHT 
: POINTER TO ERRTBL 
;PTR. TO INIT CODE 
;PTR. TO CLEAN-UP CODE 
;PTR. TO AUTO CODE 
;PTR. TO PROTECT TABLE 
;TEST NUMBER 
.•DELAY COUNT 
:PTR. TO HIGH MEM 
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820 
821 
822 
823 
824 
825 
826 
827 
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.SBTTL DEFAULT HARDWARE P-TABLE 



828 
829 
830 
831 
832 



002122 
002122 
002124 
002124 

002124 
002126 
002130 
002132 
002132 



000003 



172522 
000224 
000240 



THE DEFAULT HARDWARE POTABLE CONTAINS DEFAULT VALUES OF 
THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TA8LE. 



L$HW: : 
DFPTBL : : 



6GNHW DFPTBL 
.WORD Ll0000-L$HW/2 



LI 0000: 



.WORD 172522 

.WORD 224 

.WORD PRIOS 
ENDHW 



.•DEFAULT HARD-P-TABLE 



2N0 (OF 2) REGISTERS. 
INTERRUPT VECTOR 
INTERRUPT PRIORITY. 



I 2 



C2TUYA0 ru80 FROMT £N0 PRT C 
SOFTWARE P-TA8LE 

83A 
835 
836 
837 
838 
839 

840 002132 

002132 OOOOOA 

002134 

002134 

841 

842 002134 000000 

843 002136 000000 
844 

845 

846 002140 000031 

847 002142 000310 

848 002144 
002144 

849 
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.SBTTL SOFTWARE P-TABLE 



THE SOFTWARE P-TA8LE CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



BGNSW 
.WORD 



LSSW:: 
SFPTBL:: 

TRANSTST:: 
NOITS:: 



LERRMAX:: 
GERRMAX:: 

ENDSW 

LI 0001: 



SFPTBL 

Ll0001-L$SW/2 



.WORD 
.WORD 



.WORD 
.WORD 



0 
0 



25. 
200. 



ENABLE RAM DUMP IF ^1 
INHIBIT ITERATION OPTION. 
... 0 = ITERATE. 
...HZ - INHIBIT ITERATE. 
LOCAL (PER TEST) ERROR LIMIT 
GLOBAL (PER UNIT) ERROR LIMIT 



J 2 
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852 
859 
864 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 

883 002144 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
000037 
C00036 
000035 
000034 
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.SBTTL GLOBAL EQUATES SECTION 



SEQ 22 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN TORE THAN ONE TEST. 



EQUALS 
BIT DIFINITIONS 



: GET STANDARD EQUATES. 



Dl T1 

Di 1 1 5— 


1 f\tM\f\t\ 
1 WVW 


pr TiZ— ■ 
Dl 1 IH— • 


*tllUUU 


BIT13« 


20000 


BIT12== 


10000 




4000 


BITIO— 


2000 


BIT09== 


1000 


BIT08« 


400 


BIT07== 


200 


BIT06== 


100 


BIT05~ 


40 


BIT04== 


20 


BlT03=s 


10 


BIT02SS 


4 


BITOT— 


2 


BITOO» 


1 


6lT9« 


BIT09 


BlT8=:s 


BIT08 


B1T7" 


BIT07 


BIT6=s 


BIT06 


BIT5== 


BIT05 


BIT4« 


BIT04 


B1T3== 


BIT03 


B1T2" 


BIT02 


B1T1~ 


BITOT 


BITO— 


BITOO 


; EVENT 


FLAG DEFINITIONS 



EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF.STARTss 


32. 


EF.RESTART" 


31. 


EF.CONTINUE-^ 


30. 


EF.NEW== 


29. 


EF .PWR== 


28. 



START COMMAND WAS ISSUED 
RESTART COMMAND UAS ISSUED 
CONTINUE COMMAND UAS ISSUED 
A NEW PASS HAS BEEN STARTED 
A POUER-FAIL/POWER-UP OCCURRED 



PRIORITY LEVEL DEFINITIONS 



CZTUYAO TU80 FRONT END PRT C 
GLOBAL EQUATES SECTION 

000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 

884 

885 002144 



000250 

177572 
177574 
177576 
172516 
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SEQ 25 



PRI07SS 


340 


PRI06== 


300 


PRI05== 


240 


PRI04== 


200 


PRI03SS 


140 


PRI02~ 


100 


PRI01== 


40 


PRI00== 


0 


•OPERATOR FLAG BITS 


EVL== 


4 


LOT== 


10 


ADR-- 


20 


IDU« 


40 


ISRss 


100 


UAN:- 


200 




400 


PNT== 


100ft 


PRI« 


2000 


IXEss 


4000 


IBE== 


10000 


IER« 


20000 


L0£== 


40000 


HOE-- 


100000 



.SBTTL 

;*KT11 

H«VEC= 

;*ICT11 

SRO- 

SR1- 

SR2- 

SR3- 

.IF N8 

;*USER 

UIPDRO- 

UIPDR1: 

UIPDR2- 

UIPDR3: 

UIPDR4: 

UIPORS: 

UIP0R6: 

UIP0R7i 

.IF NB 

;»USER 

UOPDRO^ 

U0PDR1: 

U0PDR2= 

UDP0R3= 

U0PDR4: 

U0PDR5: 

UDPDR6: 

UDPDR7 

.ENOC 

;*LSER 



KT11 :OEFINE MEMORY MANAGEMENT REGISTERS 

MEMORY MANAGEMENT DEFINITIONS 
VECTOR ADDRESS 
250 

STATUS REGISTER ADDRESSES 
177572 
177574 
177576 
172516 

"i" PAGE DESCRIPTOR REGISTERS 

177600 
: 177602 
: 177604 
• 177606 
: 177610 
: 177612 
: 177614 
: 177616 

'V PAGE 
: 177620 
177622 
: 177624 
: 177626 
5 177630 
: 177632 
177634 
: 177636 

"I" PAGE ADDRESS REGISTERS 



DESCRIPTOR REGISTORS 



C2TUYA0 TU80 FRONT END PRT I 
MEMORY MANAGEMENT DEFINITIONS 
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UlPAROs 177640 
UIPARI* 177642 
UIPAR2- 177644 
UIPAR3= 177646 
UIPAR4= 177650 
UIPAR5= 177652 
UIPAR6= 177654 
UIPAR7= 177656 
IF NB 

;*USER "D" PAGE ADDRESS REGISTERS 
UDPARO= 177660 
UDPAR1= 177662 
UDPAR2= 177664 
UDPAR3= 177666 
UDPAR4S 177670 
UDPAR5= 177672 
UDPAR6= 177674 
UDPAR7S 177676 
.ENDC 
.ENDC 
IF NB 

:*SUPERVIS0R "I" PAGE DESCRIPTOR REGISTERS 
SIPDROs 172200 
SIPDR1= 172202 
SIPDR2= 172204 
SIPDR3= 172206 
SIPDR4S 172210 
SIPDR5= 172212 
SIPDR6- 172214 
SIPDR7a 172216 
IF NB 

i*SUPERVISOR "D" PAGE DESCRIPTOR REGISTERS 

SDPDRO= 172220 

SDPDRIs y72222 

S0PDR2= 172224 

SDPDR3S 172226 

SDPDR4= 172230 

SDPDR5= 172232 

SDPDR6- 172234 

SDPDR7S 172236 

.ENDC 

:*SUPERVISOR "I" PAGE ADDRESS REGISTERS 

SIPAROs 172240 

SIPAR1= 172242 

SIPAR2= 172244 

SIPAR3= 172246 

SIPAR4= 172250 

S1PAR5= 172252 

SIPAR6= 172254 

SIPAR7= 172256 

.IF NB 

;*SUPERVISOR "D" PAGE ADDRESS REGISTERS 

SDPARO:= 172260 

SDPAR1= 172262 

SDPAR2= 172264 

SDPAR3= 172266 

SDPAR4= 172270 



SEQ 24 
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172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
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SDPAR5S y72272 
SDPAR6S 172274 
SDPAR7= 172276 
.ENOC 
.ENDC 

.••KERNEL "I" PAGE DESCRIPTOR REGISTERS 
KIPDRO- 172300 
KIPDRIs 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4S 172310 
KIPDR5S 172312 
KIPDR6= 172314 
IC1PDR7= 172316 
IF NB 

••KERNEL "D" PAGE DESCRIPTOR REGISTERS 

KDPDRO- 172320 

KDPDRIs 172322 

KDPDR2S 172324 

KDPDR3S 172326 

KDPDR4S 172330 

KDPDR5= 172332 

KDPDR6= 172334 

KDPDR7S 172336 

.ENDC 

.••KERNEL "I" PAGE ADDRESS REGISTERS 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6- 172354 
KIPAR7S 172356 
IF NB 

•♦KERNEL 'D" PAGE ADDRESS REGISTERS 
KDPAROs 172360 
KDPARU 172362 
KDPAR2= 172364 
KDPAR3= 172366 
KDPAR4= 172370 
KDPAR5= 172372 
KDPAR6= 172374 
KDPAR7= 172376 
.ENDC 
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890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 



000004 
000060 
177560 
177562 



100000 
040000 
020000 
010000 
004000 
002000 
001400 
000200 
000100 
000060 
000016 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
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.SBTTL TU80 REGISTER AND PACKET DEFINITIONS 



SOME GENERAL EQUATES. 



ERRVEC== 
TTIVECss 
TTICSR== 
TTIBFRs= 



4 

60 

177560 
177562 



POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
INTERRUPT VECTOR FOR CONSOLE INPUT 
BUS ADDRESS OF CONSOLE INPUT 
CONSOLE INPUT DATA BUFFER 



BIT DEFINITIONS FOR TSSR REGISTER 



SCs 

BIE^ 

SCEs 

RHRs 

NXHs 

NBA:: 

HIADDR- 

SSRs 

OfL= 

FATERRs 

TERCLS- 



BIT15 

BIT14 

BIT13 

6IT12 

BIT11 

BIT10 

BIT9!BIT8 

BIT7 

BIT6 

BIT4!6IT5 
BIT3!Bir2!BIT1 



SPECIAL CONDITION 
BUS INTERFACE ERROR 
SANITY CHECK ERROR 
MODIFICATION REFUSED 
NONEXISTANT MEMORY ERROR 
NEED BUFFER ADDRESS 
EXTENDED ADDRESS BITS 
SUB SYSTEM READY 
OFF LINE BIT 

FATAL TERMINATION ERROR CODES 
TERMINATION CODES 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 

(xsro) 



XSOTMK= 


Bins 


:TAPE MARK DETECTED 


XSORLS^ 


BITU 


.•RECORD LENGTH SHORT 


XSOLETs 


BIT13 


.•LOGICAL END OF TAPE 


XSORLLs 


BIT12 


; RECORD LENGTH LONG 


XSOULEs 


BIT11 


: WRITE LOCK ERROR 


XSONEF= 


BIT10 


;NON EXECUTABLE FUNCTION 


XSOILCs 


BIT9 


.•ILLEGAL COMMAND 


XSOILAs 


BITS 


: ILLEGAL ADDRESS 


XS0MOT= 


BIT7 


;TAPE IN MOTION 


XSOONLs 


BIT6 


.•TRANSPORT ON LINE 


XSOIE- 


BITS 


.•INTERRUPT ENABLE 


XSOVCKs 


BIT4 


.•VOLUME CHECK BIT 


XSOPED* 


BIT3 


.•PHASE ENCODED DRIVE 


XSOWLKs 


BIT2 


; WRITE LOCKED 


XSOBOTs 


BIT1 


.•BEGINNING OF TAPE 


XSOfcOT= 


BITO 


.'END OF TAPE 



•BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
;(XST1) 
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SEO 27 



9A7 
9A8 
9A9 
950 
951 
952 
953 
95A 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
97*. 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 



100000 
040000 
020000 
017375 
000400 
000002 



100000 
040000 
035400 
002000 
000200 
000100 
000077 
000007 



177400 
000200 
000100 
000040 
000020 
000010 
000006 
000001 



100000 
040000 
020000 
017400 
000377 



000006 
000006 



.-DATA LATE 
:N0T USED 

'CORRECTABLE DATA ERROR 
tV.mi - Biti2*BiriUBIT10*BIT9*BIT7*BIT6*BIT5*BIT4*BIT3*BlT2*BIT0 .-ALWAYS 0 
X1.RBP - BIT8 ;READ BUS PARITY ERROR 

X1.UNC - BIT1 .'UNCORRECTABLE DATA OR HARD ERROR 



X1.DLT = BIT15 
XI.SPARE* BIT14 
XI. COR = BIT13 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 

(XST2) 

X2.0PH ^ BIT15 .-OPERATION IN PROGRESS (TAPE NOTING) 

X2.RCE - BIT14 .-RAM CHECKSUM ERROR 

X2. SPARES BIT13*BIT12^BIT1UBIT9^BIT8 :NOT USED BY TU80 (ALUAYS-O) 

X2.WCF : BIT10 :URIiE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

X2.EXTF s BIT7 ;IF WRITE CHAR CND THEN - EXTENDED FEATURES ENABLED 

X2.BUFE - BIT6 :IF WRITE CHAR CMD THEN - BUFFERING ENABLED 

X2.REV - 000077 ;IF WRITE CHAR CMD THEN - MICROCODE REVISION LEVEL 

X2.UNIT - BIT2«BITUBIT0 ;IF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 

(XST3) 



X3.MDE = 177400 
X3. SPARES BIT7 
X3.0PI = BIT6 



X3.REV 
X3.TRF 
X3.DCK 
X3.MBZ 
X3.RIB 



= BIT5 
= BIT4 
= BIT3 
sBIT2*Bni 
s BITO 



.-MICRO-DIAGNOSTIC ERROR CODE 
;NOT USED BY TU80 
.-OPERATION INCOMPLETE 
.•REVERSE 

.-TRANSPORT RESPONSE FAILURE 
.-DENSITY CHECK 
.-NOT USED ALWAYS 0 
.'REVERSE INTO BOT 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 

(XST4) 

X4.HSP = BIT15 .'HIGH SPEED 

X4.RCE = BIT14 .-RETRY COUNT EXCEEDED 

X4.TSM - BIT13 .-TRANSPORT SPECIAL MODE 

X4.MBZ - BIT12*BIT1UBniO«8IT9*BIT8 .-NOT USED ALWAYS 0 

X4.WRC • 000377 .WRITE RE1RY COUNT FIELD 



TSSR TERMINATION CODES (BIT 0>2) 



TSREJ= 3*2 
UNRECs 6 



DEVICE REGISTER OFFSETS 



.-COMMAND REJECTED 
.'UNRECOVERABLE ERROR 
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1004 

1005 

1006 

1007 

1008 

1009 

1010 

lOVi 

1012 

1013 

10U 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 



177776 
177776 
177776 
177776 
177777 
177777 
000000 
000001 



000003 



000017 
000013 
000012 
000011 
000010 
000006 
000005 
000004 
000001 



100000 
040000 
020000 
010000 
007400 
000200 
000140 
000037 



000000 
000400 
001000 
002000 
002400 



000167 
000200 
000020 
000027 
000104 



TSBA=s 


-2 


TSBAL== 


-2 


TSDB== 


-2 


TSDBL-- 


-2 


TSBAHss 


-1 


TSDBH«s 


-1 


TSSRss 


0 


TSSRHss 


1 



TSDB ADDRESS BIT DEFINITIONS 
A171o s BITUBITO 

COWMNO DEFINITIONS 



P.6ETSTAT 

P.INIT 

P. CONTROL 

P.FORMAT 

P.POSITION 

P.URTSUB 

P.URITE 

P.URTCHAR 

P.READ 



17 

13 

12 

11 

10 

6 

5 

1 



;TSOB/TSBA REGISTER 
:TSDB/TSBA REGISTER 

:TSOB/TSBA REGISTER HIGH BYTE 

:TSSR REGISTER 

;TSSR REGISTER HIGH BYTE 



:ADDRESS BITS 17:16 ARE IN 1:0 



:GET STAfUS 

.-INITIALIZE 

.•CONTROL COMMANDS 

.•FORMAT 

.•POSITION 

.-SUBSYSTEM WRITE 

.-WRITE 

;WRITE CHARACTERISTICS 
:READ 



COMMAND PACKET HEADER WORD BIT DEFINITIONS 



P.ACK ' BIT15 

P.CVC = BIT14 

P.OPP = BIT13 

P SWB = BIT12 

p!M0DE = BIT11!eiT10!eiT9!BIT8 

P.IE = BIT7 

P.FMT= BIT6!8ITS 

P.CMD = 37 

CONTROL COMMAND MODE CODES 



BUFFER AVAIL FOR CONTROLLER 

CLEAR VOLUME CHECK 

REVERSE SEQUENCE OF DATA BITS 

SWAP BYTES IN MEMORY 

EXTENDED COMMAND MODE FIELD 

INTERRUPT ENABLE 

PACKET HEADER TYPE (ALUAYSsO) 

MAJOR COMMAND FIELD 



PC. RELEASE 
PC. RE WIND 
PC.NOOP 
PC. I ERE W 
PC. ERASE 



= 0*256. 
= 1*256. 
= 2*256. 
= 4*256. 
= 5*256. 



RELEASE BUFFER 

REWIND 

NO-OP 

REWIND IMMEDIATE 
SECURITY ERASE 



INTERRUPT 



CONTROLLER RAM DEFINITIONS 

RMCHBEG = 167 
RMCHEND = 200 
RMPKTBEG= 20 
RMPK TENDS 27 
RMMSG6E6- 104 



CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
CHARACTERISTICS 10 DATA END RAM ADDRESS 
COMMAND PACKET BEGIN RAM ADDRESS 
COMMAND PACKET END RAM ADDRESS 
MESSAGE BUFFER BEGIN RAM ADDRESS 
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SEQ 29 



1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
M03 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 



000117 



000006 
000010 
000012 
000014 
000016 



000002 
000004 
000006 

000010 



000000 
000001 
000002 
000004 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000010 
000011 
000020 
000021 
000022 
000023 
000024 



000200 



RHHSGENDs 117 



.•MESSAGE BUFFER END RAM ADDRESS 
•.REGISTER DEFINITIONS IN THE MESSAGE BUFFER 



XSTO== 
XST1== 
XST2« 
XST3SS 
XST«« 



6 

8. 

10. 

12. 

14. 



EXTENDED STATUS REGISTER C 
EXTENDED STATUS REGISTER 1 
EXTENDED STATUS REGISTER 2 
EXTENDED STATUS REGISTER 3 
EXTENDED STATUS REGISTER 4 



(WORD 4) 
(WORD 5) 
(WORD 6) 
(yORD 7) 
(WORD 8) 



OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOU = 2 
PKHI = 4 
PKBCNT = 6 

EXBCNTslO 



;LOU ORDER CHARACTERISTIC DATA POINTER 
;HIGH ORDER CHARACTERISTIC DATA POINTER 
.•NUMBER OF BYTES IN DATA PACKET 

;NUMBER OF BYTES IN EXTENDED DATA PACKET 



•DATA PACKET OFFSETS FOR URITE SUBSYTEN COMMAND 

;BYTE 0 
;BYTE 1 
;U0RD 
:U0RD 



BSELO ' 0 
BSEL1 = 1 
SEL2 = 2 
SELDATA = 4 



BSELO SELECT CODES FOR URITE SUBSYSTEM COMMAND 



PU.NOP 




0 


PU. RDRAM 




1 


PU.UTRAM 




2 


PW.RFIFO 




3 






4 


PU.RDSTAT 




S 


PU.UCTL 




6 


PW.WFHT 




7 


PU.UNISC 


s 


10 


PW.UNPft 




11 


PU.D22 




20 


PU.D11 




21 


PU.D13 




22 


PU.N01311 




23 


PW.RDEXT 




24 



BSEL1 CODES FOR URITE TAPE CONTROL 
MC.IFAD = BIT7 



NO-OP 
READ RAM 
URITE RAM 
READ FIFO 
URITE FIFO 
READ STATUS 
URITE TAPE CONTROL 
WRITE TAPE FORMAT 
WRITE MISCELLANEOUS 
URITE NPR CONTROL 
DO MICROTEST 22 
DO MICROTEST :i 
DO MICROTEST 13 
DISABLE MICROTEST 11 AND 13 

READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSI 



:IFAD - FORMATTER ADDRESS 



P 
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SEO 30 



1113 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
r69 
1170 
1171 
1172 
1173 
1174 



000100 
000040 
000020 
000010 
000004 
000002 
000001 



000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000200 
000020 
000010 
000006 
000001 



000000 
000002 
000004 
000006 



000200 
000100 
000040 
000020 



000200 
000100 
000040 
000020 
000010 
000004 
000003 
100000 
040000 
020000 



WC.IOTAO 

WC.I1TAD 

UC.ISRESV 

WC.IREU 

UC.IRUU 

UC.IFEN 

UC.IGO 



= BIT6 
' BIT5 
= BIT4 
= BIT3 
s BIT2 

= Bin 

= BITO 



BSEL1 COOES FOR WRITE FORMAT 



WF.IHISP 
UF.IURT 
UF.IREV 
UF. lUFM 
UF.IEDIT 
UF. I ERASE 
UF. I 3RESV 
UF. I 4RESV 



s BIT? 
s BIT6 
= BIT5 
= BIT4 
= BIT3 
= BIT2 
s BIT1 
= BITO 



;ITADO 

;ITA01 

:IRESV5 

:IRru 

;IPWU 

:UEN 

:G0 



;IHISP 
;IURT 
;IREV 
;IWF« 
: I EDIT 
; I ERASE 
;IRESV3 
:IRESV4 



TRANSPORT ADDRESS BIT 0 
TRANSPORT ADDRESd SIT 1 
RESERVED «5 
REWIND 

REWIND AND UNLOAD 
FORNATTER ENABLE 



HIGH SPEED 

WRITE 

REVERSE 

WRITE FILE NARK 

EDIT 

ERASE 

RESERVED #3 
RESERVED «4 



BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS. EXT 
MS.RSFIFO 
MS.RSTAPE 
MS. ATTN 
MS.RSD 

; MS.ATTN SUBCODES 



= BIT7 

- BIT4 
= BIT3 

- BIT2!BIT1 

- BITO 



MSA. NOP = 0*2 
MSA. VOL = 1*2 
MSA.NRAMs 2*2 
MSA.FRAM= 3*2 



.•INVERT SENSE OF EXTENDED FEATURES SWITCH 
.-RESET FIFO AND INPUT PARITY cRRORR 
;RESET TAPE STATUS IN 2 FLIP-FLOPS 
.ATTENTION TRIGGER FIELD 
.'RESET TIMER A.B THEN DELAY TIMES IN SEL2 



;NO-OP (NOTHING TRIGGERED) 

.•SIMULATE ON-LINE/OFF-LINE TRANSISTION 

.•FORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 

.•FORCE FATAL RAM ERROR (CAUSES SCE TC SET) 



WRITE SUBSYSTEM WRITE NPR 6SEL1 BIT DEFINITIONS 



NP.IR 
NP.OUT 
NP.LOOP 
NP.WRP 



= BIT7 
s BIT6 
= BIT5 
- BIT4 



.•INTERRUPT REQUEST (0-1 TRANSITION) 

;TAPE DATA DIRECTION OUT (Os IN) 

.•ENABLE TRANSPORT LOOPBACK 

.•WRITE CORRECT PARITY (SETsQ TO WRITE WRONG) 



READ STATUS MESSAGE BUFFER BIT DEFINITIONS 



S2.DIM 

S2.ILW 

S2.0UTRDY 

S2.INRDY 

S2.ATIMR 

S2.6TIMR 

S2.UNDEF 

S1.PARIN 

S1.I2RESV 

S1.I1RESV 



= B1T7 
: BIT6 
- BITS 
= BIT4 
s BIT3 
= BIT2 
s BITUBITO 
= BIT15 
= BIT14 
= BIT13 



.-WORD #9 BYTE 2 



.•(UNDEFINED) 
.•WORD #8 BYTE 



DATA IN MISS 
ILW H 
OUT RI>Y H 
IN RDY H 
TIMER A FLAG H 
TIMER B FLAG H 

PAKIN H 

IRESV2 

IRESV1 
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1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1137 
1188 
1189 
1190 
1191 
1192 
1 195 
119A 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
120A 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
12U 
1215 
1216 
1217 
1218 
1219 
1220 



010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



177560 
177562 
177564 
177566 
007776 

1 74400 
174402 
174404 
174406 



000004 
000006 
000010 
000014 
000016 

003001 
000013 
177730 
000006 
000177 
100200 

072604 
177560 
177562 
177564 
177566 



SI. 
SI. 
SI. 
SI. 
SI. 

so. 

SO. 

so. 
so. 
so. 
so. 
so. 
so. 



lEOT 
II DENT 
ICER 
IFNK 
I HER 
I SPEED 
IRDY 
lO^L 
I LDP 
IDBY 
IRVD 
IFBV 
IFPT 



= BIT12 
= B1T11 
= BIT10 
* B1T9 
- BITS 
= BIT7 
s BIT6 
' BIT5 
= BIT4 
' B1T3 
s BIT2 
= BIT1 
= BITO 



SPECIAL KEYBORD STUFF FOR I 

TKS =177560 

TKB =177562 

TPS =177564 

TPB =177566 

HIHEH =007776 

CONTROLLER DEFINITIONS 

CSR =174400 

BAR =174402 

DAR =174404 

NPR =174406 

CONTROLLER COmANDS 

DLGETS =4 

SEEK =6 

DLRDHD =10 

READ =14 

DLRDNH =16 



READY 

DLSR 

DLEPR 

DLUN 

DLCYL 

DLDNER 



=1 
=13 

=177730 

=6 

=000177 
=100200 



ROHBASE = 
TTICSR = 
TTI6FR = 
TTOCSR = 
TTOBFR = 



MOVER 

177560 

177562 

177564 

177566 



lEOT L 
IIDENT H 
ICER H 
IFNK H 
IHER H 
yORD #8 BYTE 0 I SPEED H 
IRDY L 
lONL L 
ILDP L 
IDBY L 
IRUD L 
IFBY L 

: IFPT L 

PROGRAH 

.•KEYBOARD STATUS REGISTER 
;KEYBOARD DATA REGISTER 
.•CONSOLE PRINTER STATUS REGISTER 
.•CONSOLE PRINTER DATA REGISTER 
;HI6H HENDRY MASK VALUE 

.•STATUS AND CONTROL REGISTER 
:DL ADDRESS REGISTER 
.•PLATTER ADDRESS 
.•MULTIPURPOSE REGISTER 



GET STATUS COMMAND 

SEEK TRACK AND HEAD SELECT 

READ SECTOR HEADER 

READ COMMAND 

READ SECTOR NO HEADER CHECK 

DRIVE READY BIT IN STATUS REG. 

STATUS AND RESET 

MASK FOR COVER OPEN 

HEADS UNLOADED 

MASK FOR CYLINDER ADDRESS 

DONE SET OR ERROR SET BITS 

START OF THE BOOT ROM aadia 
KEYBOARD INPUT STATUS 
KEYBOARD DATA REGISTER 
CONSOLE PRINTER STATUS REGISTER 
CONSOLE PRINTER DATA REGISTER 



G 3 
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122 
122 
122A 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
123A 
1235 
1236 
1237 
1238 
1239 
1240 
12A1 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 

126< 
126; 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
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SEQ 32 



.SBTTL SPECIAL MACROS AND OPOEFS, 



SAVE GENERAL REGS 1 TO 5 



.MACRO SAVREG 
JSR RS.REGSAV 
.ENOM 



: MACRO TO FORCE AN ERROR 

'.MACRO FORCERROR TAG,NOTSSR 
.NLIST 

.IIF NOF LISTALL, .NLIST 
.LIST 

.IF B NOTSSR 

MOV TSSR(R5),R1 

.ENOC 

MOV FORCER, FORCER 
BNE TAG 

.NLIST 

.IIF NDF LISTALL, .LIST 

.LIST 

.ENDM 



;REAO TSSR 

:IS FORCER SET? (LEAVE C BIT ALONE) 
:BR IF YES 



MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
FORCER TO 177777 

TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 



.KACRO FORCEXIT TAG 
.NLIST 

.IIF NDF LISTALL, .NLIST 
.LIST 

MOV FORCER, FORCER 
BMI TAG 

.NLIST 

.IIF NOF LISTALL, .LIST 

.LIST 

.ENDM 

; MACRO TO INCREMENT ERROR COUNTS 

'.MACRO NEXr.ERRNO 
.NLIST 

;;:.IIF NDF LISTALL, .NLIST 

ERRNO^ERRNO^^I 

;;;.IIF WOF LISTALL, .LIST 
.LiST 
.ENDM 



;IS FORCER NEGATIVE? 
;BR IF YES 
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1279 
1280 
1281 
1282 
1285 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1295 
1294 
1295 
1296 

1297 002 U4 

1298 

1299 

1500 

1501 

1502 
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;NACR0 TO PERFORM XOR 



SEO 55 



000000 



.MACRO 

MOV 

BIC 

BIC 

BIS 

.ENDM 

EN^O 
.SBTTL 



XOR A,B 

A, -(SP) 

B, (SP) 
A,B 

(SP)*,B 



FORCER - FORCE ERROR FLAG 



INITIALIZE ERROR NUMBER 



THE FOLLOWING LOCATIONS HAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



000000 



FORCER:: 



0 : FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 

; - BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 
; • EXIST, JUST ASSUME AND TYPE THE MESSAGE. 



I 3 



CZTUYAO TU80 FRONT END PRT C 
GLOBAL DATA SECTION 

1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
13U 

1315 002146 000000 

1316 002150 000000 

1317 002152 000000 

1318 002154 000000 

1319 002156 000224 

1320 002160 000200 

1321 002162 000000 

1322 002164 000000 

1323 002166 000000 

1324 002170 000000 

1325 002172 000000 

1326 002174 000000 

1327 002176 000000 

1328 002200 000000 

1329 002202 000000 

1330 002204 000000 

1331 002206 

1332 002246 000000 

1333 002250 000000 

1334 002252 000000 

1335 002254 000000 

1336 002256 000000 

1337 002260 000000 

1338 002262 000000 

1339 002264 000000 

1340 002266 

1341 002432 

1342 002576 

1343 002716 000000 
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.SBTTL GLOBAL DATA SECTION 



SEO 



•THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
;IN nORE THAN ONE TEST. 



•THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
.•SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P- TABLE. 



EPRTSU:: 


.WORD 


0 


UNITN:: 


.WORD 


0 


QVP: : 


.yORD 


0 


CSRADDR:: 


.WORD 


0 


IVEC:: 


.WORD 


224 


IPRI : : 


.WORD 


PRI04 


TSTCNT:: 


.WORD 


0 


LOOPCNT:: 


.WORD 


0 


DEVCNT:: 


.WORD 


0 


FATFLG:: 


.WORD 


0 


INTRECV:: 


.WORD 


0 


BENBSU: : 


.WORD 


0 


EXPD:: 


.WORD 


0 


RECV:: 


.WORD 


0 


EltRHI : : 


.WORD 


0 


ERRLO:: 


.WORD 


0 


RAMDATA:: 


.BLKU 


16. 


RAMSIZ:: 


.WORD 


0 


RCVHIADD:: 


.WORD 


0 


RCVLOADD:: 


.WORD 


0 


COUNT:: 


.WORD 


0 


DATA: : 


.WORD 


0 


TSTFLAG:: 


.WORD 


0 


TSTPTR:: 


.WORD 


0 


PRNNO: : 


.WORD 


0 


EXPMSG:: 


.BLKB 


100. 


RECMSG:: 


.BLK6 


100. 


Ti 3FR:: 


.BLKB 


80. 


NESBFA:: 


.WORD 


0 



; PR INT SWITCH 

;UNIT » UNDER TEST. 

.-QUICK VERIFY FLAG. 

.•ADDRESS OF CSR FOR CURRENT DEVICE 

.•INTERRUPT VECTOR 

.•INTERRUPT PRIORITY. 

.•NUMBER OF TESTS RUN IN THIS PASS 

.•REMAINING ITERATION COUNT FOR TEST 

.•NUMBER OF DEVICE UNDER TEST 

:SET IF FATAL ERROR IS DETECTED IN TEST 

:SET IF TAPE INTERRUPT WAS RECEIVED 

.•BUFFER ENABLE SWITCH SW 0=0FF:1:0N 

.EXPECTED RAM DATA FOR PRAMPKT ROUTINE 

.RECEIVED RAM DATA FOR PRAMPKT ROUTINE 

;HIGH ADDRESS MEMORY ERROR 

.•LOW ADDRESS MEMORY ERROR 

;DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

.-RAM DATA SIZE FOR PRAMPKT ROUTINE 

.•RECEIVED BUFFER HIGH ADDRESS 

.•RECEIVED BUFFER LOW ADDRESS 

.•TEST COUNT PATTERN 

;TEST DATA 

.-TEST FLAG WORD 

.TSTBLK POINTER 

.•PRINT ROUTINE TEMP 

.EXPECTED MESSAGE BUFFER DATA 

.•RECEIVED MESSAGE BUFFER DATA 

.TEMPORARY STORAGE FOR PRINT 

.STORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 



CZTUVAO TU80 FRONT END PRT 

TSTBLK - TEST DATA TABLE 

1545 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 

1361 002720 

1362 002720 000000 

1363 002722 M7777 

1364 002724 000001 

1365 002726 000002 

1366 002730 000004 

1367 002732 000010 

1368 002734 000020 

1369 002736 000040 

1370 002740 000100 

1371 002742 000200 

1372 002744 000400 
1375 002746 001000 

1374 002750 002000 

1375 002752 004000 

1376 002754 010000 

1377 002756 020000 

1378 002760 040000 

1379 002762 100000 

1380 002764 177776 

1381 002766 177775 

1382 002770 177773 

1383 002772 177767 

1384 002774 177757 

1385 002776 177737 

1386 003000 177677 

1387 003002 177577 

1388 003004 177377 

1389 003006 176777 

1390 003010 175777 

1391 003012 173777 

1392 003014 167777 

1393 003016 157777 

1394 003020 137777 

1395 003022 077777 

1396 003024 125252 

1397 003026 052525 

1398 003030 
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.SBTTL TSTBLK - TEST DATA TABLE 

♦ 

THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA IS: 

ALL ZEROS 
ALL ONES 
WALKING ONES 
WALKING ZEROS 
ALTERNATING ONES AND ZEROS 



SEO 35 



TSTBLK:: 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
TBLEND--. 



0 

177777 

BITO 

BIT1 

BIT2 

BIT3 

BIT4 

BIT5 

BIT6 

BIT7 

BITS 

BIT9 

BIT10 

BIT11 

BIT12 

BIT13 

BITU 

BIT15 

•CBITO 

•CB1T1 

*CBIT2 

•CBIT3 

•CBIT4 

•CBIT5 

•CBIT6 

•CBIT7 

•CBIT8 

•CBIT9 

•CBIT10 

•CBIT11 

•CBIT12 

•CBIT13 

•CBIT14 

•CBIT15 

125252 

052525 



;ALL ZEROS 
:ALL ONES 

:DATA FOR WALKING ONES 



.-DATA FOR WALKING ZEROS 



.ALTERNATING ONES, ZEROS 

.•ALTERNATING ONES. ZERO OPPOSITE FROM ABOVE 



000000 100000 
000000 000000 



003060 000000 
003062 000000 



C2TUVA0 TU80 FRONT END PRT 
GLOBAL ENVIRONMENT STORAGE 



400 
401 
402 
403 

404 003030 

405 003040 
406 
407 
408 
409 
410 
411 
412 

413 003064 000000 

414 003066 000000 

415 003070 000000 

416 003072 000000 

417 003074 000000 

418 003076 000000 

419 003100 000000 
420 

421 

422 003102 000000 

423 003104 002000 

424 003106 000000 

425 003110 000000 

426 003112 000000 

427 0031 H 000000 

428 003116 

429 003116 000000 

430 003120 000000 

431 003122 000000 

432 003124 000000 

433 003126 y77777 

434 003130 
435 

436 
437 
438 
439 
440 
441 
442 
443 

444 003130 

445 003330 000000 
446 

447 003332 000000 
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.SBTTL GLOBAL ENVIRONMENT STORAGE 
•STORAGE FOR DEVICE REGISTERS 

;DUMNY DEVICE REGISTERS... 
;...F0R MULTI-UNIT CHECKOUT. 



SEO 36 



000000 DUMMY: 0 J 00000.0.0 
000000 0«0,0,0,0,0,0.0 



DUFLG:: 

NODEV:: 

TEMPI : : 
TEMP2:: 
XXCOMM: : 

FREE:: 
FRESIZ:: 
FREEHI : 
KTFLG:: 



.WORD 

.WORD 

.WORD 
.WORD 
.UORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 

0 

0 
0 
0 
0 
0 
0 
0 



KTENABLE:: 


.WORD 


0 


PST32W:: 


.WORD 


2000 


SIFLAG:: 


.WORD 


0 


BADDAT:: 


.WORD 


0 


GDDAT:: 


.WORD 


0 


LOOPFL:: 


.WORD 


0 


CTAB:: 






CTABM:: 


.WORD 


0 




.WORD 


0 




.WORD 


0 




.WORD 


0 




.WORD 


-1 



CTABE * * 

;ERROR'sTATISTICS TABLE (1 WORD PER 



.•"DROPPED UNIT" FLAG. 
.•INHIBITS CODE IN "CLEAN-UP". 
:FLAG TO SAY NO DEVICE. 

.•SOME TEMP LOCATIONS. 

:XXDP^ COMM BLOCK POINTER. 

:1ST FREE MEMORY ADDRESS... 

:...AND SIZE (IN WORDS). 

;LAST WORD IN FREE SPACE 

:KT11. MEM AVAIL FLAG - 

.- .WORD 0 s <24K OR NO KT - 

;- NZ s >24K AND KT. 

;SET BY TEST ROUTINES TO FLAG '28K UNDER TEST 
:32W BLOCK ADDRESS FOR 32K STAR1 

• 

•ACTUAL DATA 
.•EXPECTED DATA 

.•CONFIGURATION TABLES. 
.-CONFIG WORK. 



;END OF MEM TABLE. 
UNIT). 64 UNITS MAX: 



0 

100000 
10XXXX 
160000 
160001 
14XXXX 



UNIT NOT TESTED 

UNIT ONLINE. NO ERRORS 

UNIT ONLINE. ENCOUNTERED XXXX ERRORS 

UNIT DROPPED. NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED. NOT IDLE AT START 

UNIT DROPPED, ENCOUNTERED XXXX ERRORS 



ERTABL: 
ERTABE : 



.BLKW 64. 
.WORD 0 



SKIPT: .WORD 



;1-SKIP SUBTEST 0=N0 SKIP OF SUBTEST 



L 3 



CZTUVAO TU80 FRONT END PRT C 
GLOBAL TEXT MESSAGES 



U49 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 

1462 003334 
003334 
003334 



124 



1463 
1464 
1465 
1466 

1467 003342 
003342 
003342 



103 



125 



132 



1468 






1469 






1470 






1471 






1472 




003443 


1473 003400 


003440 


1474 003420 


003501 


003505 


1475 003440 


123 


103 


1476 003443 


102 


111 


1477 003447 


123 


103 


1478 003453 


122 


115 


1479 003457 


116 


130 


1480 003463 


116 


102 


1481 003467 


102 


111 


1482 003474 


102 


111 


1483 003501 


123 


123 


1484 003505 


117 


106 


1485 003!)11 


102 


111 


1486 003516 


102 


111 


U87 003523 


102 


111 


1488 003530 


102 


111 


1A89 003535 


102 


111 


1490 003542 


102 


111 


1491 




123 


1492 003550 


124 


1493 003603 


124 


123 


1494 003636 


040 


040 


1495 003675 


045 


101 


1496 003716 


045 


101 


1497 003756 


045 


101 


1498 004015 


045 


116 


1499 004021 


040 


040 
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SEO 37 



070 



124 



003447 
003511 
000 
105 
105 
122 
115 
101 
124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 

116 
040 
040 
040 
045 
125 



.SBTTL GLOBAL TEXT MESSAGES 



THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
MESSAGES* AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TEST. 



; NAMES OF DEVICES SUPPORTED 



DEVTYP <TU80> 
LSDVTYP:: 

.ASCI2 /TU80/ 
.EVEN 



.TEST DESCRIPTION 

DESCRIPT <CZTUYAO TU80 FRONT END PRT C> 



LSDESC:: 



.ASCIZ 
.EVEN 



/CZTUYAO TU80 FRONT END PRT 0/ 



}BIT TO ASCII CONVERSION FOR TSSR REGISTER 



TSSRBIT: 

IS: 

2S: 

3$: 

4S: 

5$: 

6S: 

7$: 

8$: 

9S: 

10S: 

11$: 

12$: 

13$: 

14$: 

15$: 

16$: 

SFIERR: 

SFHERR: 

NXR: 

NXRX: 

TSSX: 

FUSI : 
USI: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 



U.2$.3$,4$.5$.6$.7$.8$ 
9S,10i,l1S,l2SJ3i«14SJ5SJ6S 



.WORD 
.WORD 

•sc 

•BIE' 
•SCE' 
•RMR* 
•NXM' 
•NBA* 
•BIT9 
•BITS 
•SSR' 
•OFL^ 
•BIT5 
•8IT4 
•8IT3 
•8IT2 
•8IT1 
•BITO 

•TSSR ERROR AFTER SOFT INIT* 

*TSSR ERROR AFTER BUS RESET* 

/ NON-EXISTANT DEVICE REGISTER/ 

/XA ADDRESS: X06/. . ^. . 

/XA TSBA.TSSR EXP'D: X06XA.X06XN/ 

/XA TSBA.TSSR REC^D: X06XA,X06/ 

/XNXA/ 

/ UNEXPECTED INTERRUPT/ 



CZTUYAO TU80 FRONT IHD PRT C 
GLOBAL TEXT MESSAGES 



1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
15U 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 



004050 
004113 
004117 
004154 
004176 
004233 
004305 
004355 

004425 
004426 
004431 
004465 
004541 
004643 
004711 
004754 
005011 
005104 



040 
045 
040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 



040 
116 
040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
122 
123 
123 



H 3 

MACRO m200 29-nAR>83 13:45 PAGE 22-1 

111 NSI: .ASCIZ / INTERRUPT EXPECTED. NOT RECEIVED/ 

045 FNOINTR: .ASCII /XNZA/ 

116 NOINTR: .ASCIZ / NO INTERRUPT WAS GENERATED/ 

111 IFAULT: .ASCIZ / INTERRUPT FAULT/ 

040 INTX: .ASCIZ /XA CPU PC: X06XA TS8A: X06/ 

042 NOINIT: .ASCIZ / "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

042 NSINIT: .ASCIZ / "SOFT-INIT" DIDN'T INITIALIZE THE OPU/ 

042 BRINIT: .ASCIZ / 'BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

NUL: .ASCIZ // 

000 NULCR: .ASCIZ /XN/ 

040 EXPGOT: .ASCIZ /XA EXP'D: X06XA. REC'D: X06/ 

045 EXPGT2: .ASCIZ /XNXA EXP'D: X06tA, X06XNXA REC'D: XOXA, X06/ ^ ^ . . _ 

040 DUAD12: .ASCIZ /XA REG(W} WRITTEN TO: X06XA REG(R) READ: EXP'D: X06XA, REC'D: X06/ 

115 PKTRAN:: .ASCIZ 'RAM Contents Do Not Match Packet Sent* 

103 SCME: .ASCIZ / CONFIG DOESN'T HATCH MFG. MASTER/ 

111 URTMSG: .ASCIZ 'WRITE CHARACTERISTICS Failed' ^ ^ . 

123 WRTERR: .ASCIZ 'TSSR Incorrect After WRITE Comnand, More Bits Set Than SSR' 

123 RDERR: .ASCIZ *TSSR Incorrect After READ Command, More Bits Set Than SSR* 
.EVEN 



SEO 38 



N 3 



CZTUYAO TU80 FRONT END PRT C 
GLOBAL ERROR REPORT SECTION 

1524 
1525 
1526 
1527 
1528 
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SEO 39 



1529 
153C 



$0 
1531 

1532 005176 
005176 

1533 005176 
005176 
005202 
005206 
005212 
005214 
005216 

1534 005222 

1535 005226 
005226 
005226 

1536 
1537 
1538 
1539 
1540 
1541 

1542 005230 

1543 005232 

1544 005234 

1545 005236 

1546 005242 
005242 
005246 
005252 
005254 
0U5256 

1547 005262 



013746 
012746 
012746 
010600 
104415 
062706 
004737 



104423 



003062 
003675 
000002 



000006 
005230 



005727 
000000 
001402 

004777 177770 

012746 004426 
012746 000001 
010600 
104415 

062706 000004 
000207 



.SBTTL GLOBAL ERROR REPORT SECTION 



THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTS AND PRINTX 
CALLS THAT ARE USED IN MORE THAN ONE TEST. 
ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



NXRERR: 



6GNMSG NXRERR 



L10002: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSR 

ENDMS6 



#NXRX,NODEV 

NODEV,-(SP) 

#NXRX,-(SP) 

#2,-<SP) 

SP.RO 

CSPNTX 

#6.SP 

PC«EXTEND 



;NON-EXISTANT DEVICE REGISTER. 
:NODEV ' NEXN ADDRESS. 



: PRINT EXTENSION IF REQUIRED. 



TRAP CSMS6 



THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
TO ANY OF THE ABOVE ERROR SIGNATURES. 



IXTEND: 
EXTA: 

U: 



TST 
0 

6EQ 
JSR 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



(PC)* 
1$ 

PC.8EXTA 

#NULCR 

#NULCR,-<SP) 

#1,-(SP) 

SP,R0 

C$PNTX 

#4.SP 

PC 



0 = NO EXTENSION. 

APPEND EXTENSION TEXT. 
PRINT A BLANK LINE 



C2TUYA0 TU80 FRONT £N0 PRT C 
PRITSSR - PRINT TSSR CONTENTS 



1550 
1551 
1552 
1553 
.554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
156A 
1565 
1566 
1567 
1568 
1569 
1570 
1571 



1572 
1573 
1574 
1575 



1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 



00S264 
005264 
005270 
005272 
005272 
005274 
005300 
005304 
005306 
005310 
005314 
005316 
005322 
005324 
005324 
005330 
005334 
005336 
005340 
005344 
005346 
005352 
005354 
005360 
005364 
005366 
005370 
005372 
005374 
005376 
005400 
005402 
005404 
005412 
005414 
005416 
005420 
005420 
005424 



010104 

010446 
012746 
012746 
010600 
104414 
062706 
010400 
004737 
103410 

012746 
012746 
010600 
104415 
062706 
010403 
042703 
001434 
012702 
012701 
005703 
001413 
000241 
006103 
103006 
011100 
112022 
001376 
112762 
005721 
000763 
105042 

012746 
012746 
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.SBTTL PRITSSR - PRINT TSSR CONTENTS 

♦ 

ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

R1 CONTENTS OF TSSR 

SUBORDINATE ROUTINES: 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



SEQ 40 



006116 
000002 



000006 
016714 



006336 
000001 



000004 

001476 

002576 
003400 



000054 ^77777 



002576 
006307 



PRITSSR: 

SAVREG 

MOV R1 ,R4 

f'MHJB #TSSRF0R,R4 

MOV R4,-(SP) 

MOV #TSSRFOR,-(SP> 

MOV f2,-(SP) 

MOV SP.RO 

TRAP CSPNTB 

ADD f6,SP 

MOV R4,R0 

JSR PC. CHKAMB 

BCS 5S 

PRINTX fAMBTSSR 

MOV #AMBTSSR,-(SP) 

MOV f1.-<SP) 

MOV SP,RO 

TRAP CSPNTX 

ADD f4,SP 

5S: MOV R4,R3 

BIC #HIADDR!FATERR!TERCLS 

BEO 20S 

MOV #TMPBFR,R2 

MOV #TSSRBIT,R1 

10$: TST R3 

BEO 15S 

CLC 

ROL R3 

BCC 13$ 

MOV (R1),R0 

11$: MOVB (R0)4^,(R2)^ 

BNE 11$ 

MOVB #• ,-1(R2) 

13$: TST (RlW 

BR 10$ 

15$: CLRB -(R2) 

PRINTX #TSSOEF,fTMPBFR 

MOV fTMPBFR,-(SP) 

MOV #TSSDEF,-(SP) 



:SAVE GENERAL REGISTERS 
;SAVE THE TSSR CONTENTS 
;PRINT THE CONTENTS OF TSSR 



;GET TSSR BACX FOR CHKAMB 
;ARE CONTENTS AMBIGUOUS ? 
;BRANCH IF NOT 

;SHOW CONTENTS ARE AMBIGUOUS 



; CONTENTS OF TSSR 
,R3 :CLEAR ALL MULTIPLE BIT FIELDS 

:N0 bit; are SET 
:TEMPORAnY ASCII BUFFER 
;ASCII EQUIVALENT OF BITS 
.•REMAINING BITS TO CONVERT 
.•BRANCH WHEN ALL ARE DONE 
.•CLEAR CAtRY FOR SHIFT 
.•SHIFT NEXT BIT TO CARRY 
.-BRANCH IF BIT NOT SET 
:POINTER TO BIT DEFINITION 
.MOVE ASCIZ TO BUFFER 
;MOVE ALL BITS 

.•INSERT A COMMA TO TERMINATE 
.•POINT TO NEXT DESCRIPTION 
.•GET THE REMAINING BITS 
.•TERMINATE THE LINE 
.•PRINT THE BIT DEFINITIONS 
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005430 
005A54 
005A36 
005440 

1594 

1595 005444 

1596 005446 

1597 005452 

1598 005456 
005456 
005460 
005464 
005470 
005472 
005474 

1599 005500 

1600 005502 

1601 005506 

1602 005510 

1603 005512 

1604 005514 

1605 005516 

1606 005522 
005522 
005524 
005530 
005534 
005536 
005540 

1607 005544 

1608 005552 

1609 005554 

1610 005560 

1611 005562 
005562 
005564 
005570 
005574 
005576 
005600 

1612 005604 

1613 005610 

1614 005612 
^•615 005620 

1616 005624 

1617 005626 

1618 005654 

1619 005642 
005642 
005646 
005652 
005654 
005656 

1620 005662 

1621 005670 
1622 

1623 005672 



012746 
010600 
104415 
062706 

010403 
042703 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
042703 
001421 
006203 
006205 
006203 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
012737 
010403 
042703 
001411 

010346 
012746 
012746 
010600 
104415 
062706 
022704 
001003 
012737 
005737 
001003 
012737 
013737 

012746 
012746 
010600 
104414 
062706 
012737 
000207 

045 



000002 
000006 



177761 
006400 



006177 
000002 



000006 
177717 

006740 



006240 
000002 



000006 
000031 

176377 



006136 
000002 



000006 
100210 

006025 
002146 

005672 
002146 

005672 
000001 



000004 
005672 



116 
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NOV 

nov 

TRAP 
ADD 



20S: 



002170 



002U6 



002146 
005644 



002146 
045 



nov 

BIC 

nov 

PRIN 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

BIC 

BEQ 

ASR 

ASR 

ASR 

NOV 

PRIN 

NOV 

MOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

NOV 

BIC 

BEQ 

PRIN 

NOV 

NOV 

MOV 

NOV 

TRAP 

ADD 

CNP 

6NE 

NOV 

TST 

BNE 

NOV 

NOV 

PRIM 

MOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

RTS 



EPRT1: .AS( 



25S: 



30$: 
31 S: 



310$: 
32$: 



C 4 
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SEQ 41 



#2,-(fP) 
SP,RO 
CSPNTX 
#6,SP 

R4.R3 

#*CTERCLS,R3 

TC0C0D(R3).R3 

«TC0ASC,ft3 

R3,-(SP) 

«TCOASC,-(SP) 

#2,-(SP) 

SP.RO 

C$Pi«TX 

#6«SP 

R4,R3 

#*CFATERR,R3 

R3 
R3 
R3 

TSFCOD(R3},R3 

«TFCASC«R3 

R3,-(SP) 

#TFCASC,-<SP) 

#2,-(SP) 

SP,RO 

C$^NTX 

#6.SP 

«25.,FATFLG 
R4«R3 

«*CHIADDR,R3 
30$ 

«TEXASC,R3 

R3,-(SP) 

#TEXASC,-(SP) 

#2,-(SP) 

SP.RO 

C$PNTX 

#6.SP 

fl60210.R4 

31$ 

#EPRT3,EPRTSU 

EPRTSy 

310$ 

fEPRTi .EPRTSU 

EPRTSV,32$^2 

#EPRT1 

#EPRT1,-(SP) 

#1,-(SP) 

SP.RO 

C$PNTB 

#4-SP 

#E^RTnEPRTSU 

PC 



GET THE TSSR CONTENTS 

CLEAR ALL BUT TERNINATION 

GET THE TERNINATION CODE MEANING 

PRINT THE TERNINATION CODE 



TSSR CONTENTS AGAIN 

CLEAR ALL BUT FATAL TERMINATION 

DON'T PRINT IF ZERO 



;ALINE TERMINATION CODE FOR INDEX 
;GET THE FATAL TERMINATION CODE 
;PRINT THE FATAL TERMINATION CODE 



DROP THIS UNIT AFTER ERROR MESSAGE 

GET TSSR CONTENTS 

CLEAR ALL BUT EXTENDED ADDRESS 

DON'T PRINT IF ZERO 

PRINT THE EXTENDED ADDRESS BITS 



CHECK FOR MEDIA ERROR 

BR, IF PROBABLY NOT TAPE ERROR 

"PROBABLY MEDIA RELETED ERROR - BAD TAPE' 

CHECK FOR THE SyiTCH EMPTY 

BR, IF SyiTCH IS NOT ENPTY 

SET iUITCH TO DEFAULT 

PUT REAL SWITCHABLE NESSAGE IN PLACE 

PRINT THE ERROR NESSAGE 



; RE SET TO NORMAL ERROR POINTER 
; RETURN TO CALLER 



'XNU *****CHECK CABLES BETVEEN N7454 AND TRANSPORT* 



»XS' 



C2TUVA0 TU80 FRONT END PRT C 
PRITSSR • PRINT TdSR CONTENTS 



162« 00576A 

1625 006025 

1626 006116 

1627 006156 

1628 006177 

1629 006240 

1630 006307 

1631 006336 
1632 

1633 006400 

1634 006420 

1635 006443 

1636 006471 

1637 006513 

1638 006533 

1639 006615 

1640 006664 

1641 006710 
1642 

1643 

1644 006740 

1645 006750 

1646 007004 

1647 007015 

1648 007061 
1649 
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1 10 




045 


116 


045 


045 


116 


045 


045 


116 


045 


045 


116 


045 


045 


116 


045 


045 


116 


045 


045 


116 


045 


006420 


006443 


006471 


116 


157 


162 


124 


145 


162 


124 


141 


160 


106 


165 


156 


122 


145 


143 


122 


145 


143 


125 


156 


162 


106 


141 


164 


006750 


007004 


007015 


111 


156 


164 


122 


145 


163 


102 


165 


163 


122 


145 


163 



EPRT2: 
EPRT3: 
TSSRFOR 
TEXASC: 
TCOASC: 
TFCASC: 
TSSDEF : 
AMBTSSR: 



.ASCIZ 
.ASCIZ 





.EVEN 


TCOCOD: .WORD 


IS: 


.ASCIZ 


2S: 


.ASCIZ 


3Si 


.ASCIZ 


4Si 


.ASCIZ 


5Si 


.ASCIZ 


6S: 


.ASCIZ 


7$: 


.ASCiZ 


8$: 


.ASCIZ 




.EVEN 


TSFCOD: .WORD 


1$ 


.ASCIZ 




.ASCIZ 




.ASCIZ 




.ASCIZ 




.EVEN 



•INXA ••♦•♦CHECK TRANSPORT^^^^^XS' 

'XNXA ♦♦♦♦♦POSSIBLE MEDIA RELATED ERROR - BAD TAPE** 

.ASCIZ 'XNXA TSSR s X06' 

.ASCIZ 'XNXA Extended Address Bits - X06' 

.ASCIZ 'XNXA Teralnatlon Class Code » XT' 

.ASCIZ 'XNXA Fatal Ternilnatlon Class Code ^ (t* 

.ASCIZ 'XNXA TSSR Bits Set: XT* 

.ASCIZ 'XNXA TSSR Contents Are AMblguous' 

1$.2$.3S.4$.5$.6S,7S,8S 
*NorMl Tenilnatlon' 
'Ter«1nat1on Condition* 
'Tape Status Alert* 
*Funct1on Reject* 

'Recoverable Error - Tape Position One Record Down' 
'Recoverable Error - Tape Was Not Moved* 
'Unrecoverable Error* 
'Fatal Controller Error* 



1$.2$,3$,4$ 

'Internal Diagnostic Failure* 
'Reserved' 

'Bus Interface or Sanity Check Error* 
'Reserved* 



E 4 



C2TUYA0 ru80 FRONT END PRT C HACRO H1200 29-«AR-83 13:43 PAGE 26 
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SEO 43 



1651 
1652 
1653 
165A 
1655 
1656 
1657 
1658 
1659 
1660 

1661 007072 

1662 007072 

1663 007076 

1664 007100 

1665 007104 

1666 007106 

1667 007110 

1668 007112 
166V 007114 

1670 007116 

1671 007120 
007120 
007122 
007124 
007130 
007134 
007136 
007140 

1672 007144 

1673 007*46 

1674 007150 

1675 007152 

1676 007156 

1677 007160 

1678 007162 

1679 007164 
007164 
007166 
007170 
007174 
007200 
007202 
007204 

1680 007210 

1681 007212 

1682 007214 

1683 007216 
007216 
007222 
007226 
007230 
007232 

1684 007236 

1685 007240 

1686 007276 

1687 007333 
1688 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 

012746 
012746 
010600 
104414 
062706 
000207 
045 
045 
045 



.SBTTL PRIPKT - PRINT THE ADDRESS/ CONTENTS OF C0ff**.*j0 »ACKET 

THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COWtAND PACKET. 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



003102 



007276 
000003 



000010 
020266 



007240 
000003 



000010 



007333 
000001 



000004 

116 
116 
116 



INPUT: 

RO 
R3 
R4 

NOTE: 

rtlPKT:: 

SAVRE6 

ffOV 

TST 

BNE 

CLR 

10S: NOV 
NOV 

ROL 
ROL 

PRINTS 
HOV 

mv 

NOV 

NOV 

NOV 

TRAP 

ADO 

1S$: NOV 
BEQ 
NOV 
JSR 
NOV 

20$: CLR 
25$: NOV 

PRINTS 

NOV 

NOV 

NOV 

NOV 

NOV 

TR«P 

Ai; 

INC 

CHP 

8LT 

PRINTS 

NOV 

NOV 

NOV 

TRAP 

ADD 

RTS 

045 PKTFRN: .ASCIZ 
045 PKTADO: .ASCIZ 
045 PKTNEU: .ASCIZ 
.EVEN 



NUNBER OF WORDS IN PACKET 

HIGH ORDER CONNAND PACKET ADDRESS 

ADDRESS OF CONNAND PACKET 

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



R0,R5 
KTENABLE 
10$ 
R3 

R3,R1 
R4«R0 
RO 
R1 

«PKTADD.R1 ,R4 

R4.-(SP) 

R1,-(SP) 

#PKTADD,-(SP) 

#3.-(SP) 

SP,RO 

C$PNTB 

#10. SP 

R3.R0 

20i 

R4.R1 

PCSETNAP 

R0.R4 

R1 

(R4)^,R2 

«PKTFRN,R1.R2 

R2,-(SP) 

R1,-(SP) 

#PKTFRN,-(SP) 

#3.-(SP) 

SP.RO 

C$PNTB 

flO.SP 

R1.RS 

25i 

«PKTNEU 

#PKTNEU,-(SP) 

#1,-(SP> 

SP.RO 

C$PNTB 

#4.SP 

PC 

'XNXA Packet 
*tHU Packet 
*XNXNXA * 



:SAVE THE REGISTERS 
.SAVE NO. OF WORDS IN PACKET 
.ABOVE 28K UNDER TEST? 
*BR IF YES 

•SET HIGH ORDER ADDRESS TO 0 
:COPY HIGH ORDER ADDRESS 
;GET LOWER ADDRESS 
.-SHIFT BIT IS INTO C BIT 
;AND INTO HIGH ORDER. 
;PRINT PACKET ADDRESS 



.GET HI6H ORDER ADDRESS 

;BR IF NOT ABOVE 28K. 

:GET LOW ORDER ADDRESS 

.•SETUP PAR6 NAPPING FOR 18 BIT ADDRESS 

;GET RETURNED PAR6 ADDRESS BIAS 

.•SAVE WORD NUNBER 

.•GET PACKET CONTENTS 

.•PRINT THE DATA 



.NEXT WORD NUNBER 
.DONE ALL PACKET WORDS? 

.•LOOP TILL ALL DONE 
.•JUST A COUPLE NEW LINES 



.•RETURN 
Word «XDUA r X06* 
Address - Z0U05' 



f 4 
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1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 

1708 007344 

1709 007344 

1710 007350 

1711 007352 

1712 007362 

1713 007366 

1714 007370 

1715 007372 

1716 007374 
007374 
007376 
007400 
007402 
007406 
007412 
007414 
007416 

1717 007422 

1718 007424 
1719 

1720 007426 

1721 

1722 
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.»TTL PRIBXOR • PRINT EXPO. RECV AND XOR BYTE 



PRINT EXPECTED DATA, RECEIVED DATA. AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



R1 
R2 



OUTPUT: 



010203 

012700 177400 
040001 
040002 
040003 

010346 
010146 
010246 

012746 007426 
012746 000004 
010600 
104414 

062706 000012 

010300 

000207 



RO 



PRIBXOR:: 

SAVRE6 

MOV 

XOR 

MOV 

BIC 

BIC 

BIC 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

RTS 



04S 



116 



045 X0R6F0R: 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



R2.R3 
R1.R3 

fC<377>,R0 
R0.R1 
R0.R2 
R0.R3 

»X0RBF0R.R2.R1 

R3.-(SP) 

R1,-(SP) 

R2.-(SP) 

«X0RBF0R.-(SP) 

f4,-(SP) 

SP.RO 

CSPNTB 

#12. SP 

R3.R0 

PC 



.•SAVE THE REGISTERS 
.•EXPECTED DATA 
.FORM THE EXCLUSIVE OR 
.'BYTE MASK 
.SAVE LOW BYTE RECV 
.•SAVE LOU BYTE EXPD 
:SAVE LOU BYTE XOR 
.r) ; print THE MESSAGE 



;R0 HAS XOR ON RETURN 
.•RETURN TO CALLER 



.EVEN 



.ASCIZ *%HU EXPD: X03U RECV: X03XA XOR: tOV 



6 4 



C2TUVA0 TU80 FRONT END PRT C P1ACR0 N1200 
PRIXOR - PRINT EXPO, RECV AND XOR 



17< 
17; 



1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
173A 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
174.2 
1743 
1744 
1745 
1746 



1747 
174« 
1749 
1750 
1751 



007474 
007474 
007500 
007502 
00751? 
007512 
007514 
007516 
007520 
007524 
007530 
00753? 
007534 
007540 
007542 

007544 
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.SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 



SEQ 45 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



OUTPUT: 



RO XOR OF EXPECTED/RECEIVED DATA 



PRIXOR:: 



010203 



010346 
010146 
010246 

012746 007544 
012746 000004 
010600 
1044U 

062706 000012 

010300 

000207 



045 



116 



045 XORFOft: 



SAVRE6 ;SAVE THE REGISTERS 

NOV R2,R3 .-EXPECTED DATA 

XOR R1,R3 :FORH THE EXCLUSIVE OR 

PRINTS «XORFOR,R2,R1,R3 ;PRINT THE MESSAGE 

MOV R3,-(SP) 

MOV R1,-(SP) 

MOV R2,-(SP) 

MOV «XORFOR,-(SP) 

MOV #4,-(SP) 

MOV SP,RO 

TRAP CSPNTB 

ADD #12, SP 

MOV R3,R0 :R0 HAS XOR ON RETURN 

RTS PC ; RE TURN TO CALLER 

.ASCI2 *mA EXPO: X06XA RECV: S06XA XOR: X06* 
.EVEN 



H A 
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SEQ 46 



1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 



.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS: 



RO OCTAL VALUE TO CONVERT 

R1 TABLE OF POINTERS TO ASCII EQUIVALENT 



007612 
007612 
007616 



PRIEQU: 



000207 



SAVREG 
RTS PC 



.-SAVE THE REGISTERS 
.•RETURN TO CALLER 



1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1601 
1802 
1805 



007620 
007620 
007624 
007624 
007626 
007632 
007636 
007640 
007642 
007646 

007650 



.SBTTL PRIRAN - PRINT RAM ADDRESS 



PRINT CONTROLLER RAM ADDRESS. 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



INPUTS: 



R4 



RAM ADDRESS 



PRIRAM: 



010446 

012746 007650 
012746 000002 
010600 
104414 

062706 000006 
000207 



SAVREG 

PRINTS «RANF0R,R4 

MOV R4,-<SP) 

MOV fRANFOR,-(SP) 

MOV «2.-(SP) 

MOV SP.RO 

TRAP CSPNTB 

ADO «6,SP 

RTS PC 



:SAVE R1-R5 UNTIL NEXT RETURN 
;PRINT RAN ADDRESS IN ERROR 



; RE TURN 



045 



116 



045 RAMFOR: .ASCIZ 'XNXA CONTROLLER RAM ADDRESS = Z06' 
.EVEN 



.SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 



PRINT flEMORy ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
IMPLICIT INPUTS 

ERRHI - HIGH ORDER ADDRESS 
ERRLO - LOW ORDER ADDRESS 



I 



C2TUYA0 TU80 FRONT END PRT C MACRO MIZOO 
PRIADD • PRINT HEMORY ERROR ADDRESS 



I 4 
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1804 
1805 

1806 007712 

1807 007712 
1R08 007716 

1809 007722 

1810 007726 

1811 007730 

1812 007732 

1813 007734 
007734 
007736 
007740 
007744 
OOrVSO 
007752 
007754 

1814 007760 
1815 

1816 007762 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 010026 

1833 010026 

1834 010032 

1835 010036 

1836 010042 

1837 010044 

1838 010046 

1839 010050 
010050 
010052 
010054 
010060 
010064 
010066 
010070 

1840 010074 
1841 

010076 



013700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



1842 
1843 



013700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



PRIADD: 



002202 
002204 



007762 
000003 



000010 
116 



045 PRIAO: 



SAVREG 
NOV 
NOV 
NOV 

ROL 
ROL 

PRINTS 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

RTS 

.ASCIZ 
.EVEN 



ERRHI«RO 

ERRL0«R1 

RKRZ 

R1 

RO 

fPRIA0,R0,R2 

R2,-(SP) 

RO,-<SP) 

#PRIAO,-<SP) 

#3,-(SP) 

SP.RO 

CSPNTB 

flO.SP 

PC 



SAVE RWR5 UNTIL NEXT RETURN 

GET HIGH ADDRESSS 

GET LOU ADDRESS 

COPY LOU ADDRESS 

SHIFT BIT 15 TO C BIT 

SHIFT INTO HIGH ORDER 

PRINT NENORY ADDRESS IN ERROR 



; RE TURN 



'XNXA NENORY ERROR ADDRESS s S01X05' 



.S6TTL PRITADD - PRINT NENORY TEST ADDRESS 



PRINT NENORY ADDRESS 

THIS ROUTINE IS NORNALLY CALLED ONLY FRON PRINT ROUTINES. 



INPLICIT INPUTS 



ERRHI 
ERRLO 



- HIGH ORDER ADDRESS 

- LOU ORDER ADDRESS 



PRITADD: 



002202 
002204 



010071 
00000 



000010 
116 



045 PRITO: 



SAVREG 
NOV 
NOV 
NOV 

ROL 
ROL 

PRINTS 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

RTS 

.ASCIZ 
.EVEN 



ERRHURO 

ERRLO^RI 

R1,R2 

R1 

RO 

#PRIT0,R0,R2 

R2,-<SP) 

RO,-<SP) 

#PRITO,-(SP) 

#3.-<S^) 

SP.RO 

CSPNTB 

«10,SP 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 

GET HIGH ADDRESSS 

GET LOU ADDRESS 

COPY LOU ADDRESS 

SHIFT BIT 15 TO C BIT 

SHIFT INTO HIGH ORDER 

PRINT NENORY ADDRESS IN ERROR 



; RE TURN 



'XNXA NENORY TEST ADDRESS = XOIXOS* 



J 4 



C2TUYA0 TU80 FRONT END PRT C MACRO HIZOO 29«^-83 13:45 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) CQWUND 



PAGE 50 



SEQ 48 



1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1855 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 

1880 010140 
010140 
010144 
010152 

1884 010160 

1885 010162 

1886 010164 

1887 010170 

1888 010172 

1889 010176 

1890 010202 
010210 
010214 
010, 



1881 

1 : 
188 



1891 
1892 



1893 010220 

1894 010224 

1895 010226 
010226 
010232 
010234 
010240 
010242 
010246 



12737 
12737 
005703 
100403 
010337 
000407 
042703 
010337 
05:''37 
012704 
010465 
004737 
103420 



012727 
OOOQOO 
013727 
OOOOOQ 
005367 
001375 



.SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMNAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT: 



R3 NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT15 s 0 IS FORWARD 

BIT15 s 1 IS REVERSE 
R5 FIRST DEVICE UNI6US ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT: 



CARRY SET • SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 



RO THE CONTENTS OF R4 IS MOVED TO RO 

IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 



SPACE: 



000764 010330 
140010 010320 



010322 

100000 
010322 

000400 010320 
010320 
177776 
017120 



000250 
002116 
m772 



5$: 

10S: 
15S: 



SAVREG 

MOV 

MOV 

TST 

6MI 

MOV 

BR 

BIC 

MOV 

BIS 

MOV 

MOV 

JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 



#500..SDELAY 

#140010,80$ 

R3 

5$ 

R3.90$ 

loi 

f8IT15,R3 
R3,90$ 
#8IT8,80i 
«80S,R4 

R4,TSDB(RS) 

PC-WAITF 

20i 

250 

#250. (PC)* 
0 

L$0LY.(PC)* 
0 

-6 (PC) 
.-4 



SAVE THE GENERAL REGISTERS 
SET UP DELAY 

SET UP COMMAND, SPACE FORWARD 

CHECK FOR DIRECTION 

BR, IF REVERSE INDICATED 

LOAD UP NUMBER OF RECORDS TO SPACE 

60 DO COMMAND 

CLEAR DIRECTION BIT 

LOAD UP NUMBER OF RECORDS TO SPACE 

SET REVERSE BIT IN COMMAND PACKET 

SET UP R4 WITH PACKET ADDRESS 

SEND OUT COMMAND 

WAIT FOR SSR 

BR, IF ISR IS SET AND OK 
DELAY ABOUT .25 SECONDS 
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SEQ 49 



1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1913 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 



010250 
010254 
010256 
010262 
010264 
010266 
010272 
010276 
010300 
010302 
010304 
010306 
010310 
010312 
010314 



010316 

0103c0 

010322 
010324 
010326 
010330 



005367 
001367 
005337 
001356 
000411 
016501 
012702 
020201 
001401 
000402 
000261 
000401 
000241 
010400 
000207 



000000 

000000 
000000 
000000 
000000 



177756 
010330 



000000 
000200 



-22 (PC) 

.-20 

SDELAY 

15$ 

601 

TSSR(R5)«R1 

«SSR.R2 

R2.R1 

40i 

60$ 

70$ 

R4«R0 
PC 



;PACKET FOR SPACE COmAND 





DEC 




BNE 




DEC 
BNE 




BR 


20$: 


MOV 




MOV 


25$: 


CMP 




BEQ 




BR 


40$: 


SEC 




BR 


60$: 


CLC 


70$: 


MOV 




RTS 



BUMP DELAY COUNTER DOWN 

BR, IF MORE DELAY 

BR IF TROUBLE CARRY - CLEAR 

READ TSSR 

SET UP EXPECTED 

ARE THEY OK 

BR, IF EQUAL - OK 

TROUBLE EXIT 

SET CARRY NO TROUBLE 

EXIT 

CARRY CLEAR = ERROR 
PASS PACKET ADDRESS 
RETURN 



.BLKB 10-<.-TUV2At7> 
:COMMAND WORD 
80S * WORD 

:NUMBER OF RECORDS TO BE SPACED OVER WORD 
90$: .WORD 

.WORD 

.WORD 

SDELAY: .WORD 0 ; DELAY COUNTER 

.EVEN 



L 



L 4 



CZTUYAO TU80 FRONT END PRT C MACRO nl200 
WRTCHR - WRITE CHARACTERISTICS COfWANO 



1924 
1925 
1926 
1927 
1928 
1929 
1950 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
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.SBTTL yRTCHR • WRITE CHARACTERISTICS CONPtANO 



010332 

1956 010332 

1957 010336 

1958 010342 

1959 010346 

1960 010352 

1961 010354 

1962 010356 

1963 010362 

1964 010366 

1965 010372 

1966 010374 

1967 010400 

1968 010402 

1969 010404 

1970 010406 

1971 010412 

1972 010414 

1973 010420 

1974 010422 

1975 010424 

1976 010426 

1977 010432 



005037 
010465 
004737 
103401 
000423 
016501 
012702 
032701 
001402 
052702 
020201 
001401 
000407 
062704 
011403 
010337 
000261 
000401 
000241 
016500 
000207 



002174 
177776 
017234 



000000 
000200 
000100 

000100 



000010 
002716 

000000 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COHNAND SO THAT OTHER COfWANDS WILL BE ACCEPTED 



INPUT: 



R4 ADDRESS OF PACKET FROM TEST 

R5 FIRST DEVICE UNIBUS ADDRESS 

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT: 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

BENBSW = BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



WRTCHR: 



10S: 



20S: 



25$: 



40S: 



60S: 
70$: 



SAVREG 

CLR 

MOV 

JSR 

BCS 

BR 

MOV 

NOV 

BIT 

BEO 

BIS 

CMP 

BEQ 

BR 

ADD 

MOV 

MOV 

SEC 

BR 

CLC 

MOV 

RTS 



BENBSW 

R4 JSDB(R5) 

PC.CHKTSSR 

20i 

60t 

TSSR(R5),R1 
#SSR,R2 
#0FL,R1 
25$ 

«0FL,R2 

R2.R1 

40i 

60$ 

«8.,R4 

(R4),R3 

R3,NESBFA 

70$ 

TSSR(R5),R0 
PC 



;SAVE THE GENERAL REGISTERS 

; CLEAR BUFFER ENABLE SWITCH 

rSEND OUT COMMAND 

;WAIT FOR SSR 

;BR« IF SSR IS SET AND OK 

;BR IF TROUBLE CARRY s CLEAR 

;READ TSSR 

;SET UP EXPECTED 

;WAS OFF LINE SET IN TSSR 

;BR, IF NO OFL SET 

;MAKE THEM LOOK ALIKE 

;ARE THEY OK 

;BR, IF EQUAL - OK 

.•TROUBLE EXIT 

; POINT TO WRT CHARA DATA PACKET 
;GET ADDRESS OF MESSAGE BUFFER 
;STORE FOR PRINT ROUTINES 
;SET CARRY NO TROUBLE 
;EXIT 

; CARRY CLEAR - ERROR 
.RETURN TSSR CONTENTS 
; RE TURN 



n 4 



CZTUYAO TU80 FRONT END PRT C NACRO Ml 200 
REWIND - POSITION TAPE (REWIND) COWIAND 



1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 



2005 
2004 
200^> 
2006 
2007 
2009 
2011 
2012 
2013 



010434 
010434 
010440 
010444 
010450 
010454 
010460 
010462 
010462 
010466 
010470 
010474 
010476 
010502 
010504 
010510 
010512 
010514 
010516 
010520 
010522 
010524 
010530 
010530 
010532 
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.SBTTL REWIND • POSITION TAPE (REWIND) COMMAND 



SEQ 51 



012704 


010530 


010465 


177776 


012703 


000550 


004737 


017120 


103417 




012727 


000372 


000000 




013727 


002116 


000000 


177772 


005367 


001375 




005367 


177756 


001367 




005303 




001357 




000241 




010400 




000207 




102010 




000000 





THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 
CALLING SEQUENCE: 

DO A SOFT INIT 
DO A WRITE CHARACTERISTICS 
PC, REWIND 



INPUT! 



JSR 
R5 



OUTPUT 



REWIND: 



10S: 



20S: 



RWPACK: 



RO 



SAVREG 

MOV 

NOV 

MOV 

JSR 

BCS 

DELAY 

mv 

.WORD 

MOV 

.WORD 

DEC 
BNE 
DEC 
BNE 
DEC 
BNE 
CLC 
MOV 
RTS 
.6LICB 

.WORD 
.WORD 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



#RWPACK,R4 

R4,TSDB(R5) 

#360., R3 

PCWAITF 

20S 

250. 

#250.. (PC)* 

L»DLt,(PC)* 

0 

-6(PC) 
.-4 

-22(PC) 
.-20 
R3 
10$ 

R4,R0 

PC 

10-<.-TUV2At7> 

102010 
0 



;SAVE R1-R5 UNTIL NEXT RETURN 

;GET PACKET ADDRESS 

;SEND PACKET ADDRESS TO EXECUTE 

; ENOUGH TIME FOR 2400' REEL TO REWIND 

;WAIT FOR SSR TO SET 

.•LEAVE WHEN SSR IS SET 

.-WAIT FOR .25 SECONDS 



BUMP COUNTER DOWN 
KEEP GOING 

CLEAR CARRY TO SET ERROR 
PASS THE PACKET ADDRESS 
RETURN 



;POSTION COMMAND (REWIND) 
;NOT USED 



N 4 



CZTUYAO TU80 FRONT END PRT C HACRO ni200 
CKRAM • COMPARE RAM TO I/O PACKET 

2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 

2043 010534 

2044 010534 

2045 010540 

2046 010544 

2047 010550 

2048 010552 

2049 010556 

2050 010562 

2051 010566 

2052 010572 

2053 010576 

2054 010600 

2055 010602 

2056 010604 

2057 010606 

2058 010612 

2059 010614 

2060 010616 

2061 010620 

2062 010622 

2063 010624 

2064 0106" 

2065 0106 
2066 
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.SBTTL CKRAH • COMPARE RAM TO 1/0 PACKET 



ROUTINE TO READ THE FIRST 8 BVTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A fOMNANO PACKET. 



SEO 52 



INPUT: 



R4 
R5 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAN DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 



SIDE EFFECTS: 



012701 
012702 
005003 
004737 
004737 
110265 
004737 
116511 
122124 
001401 
005203 
005202 
020227 
003761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 



002206 
000020 

017234 
017234 
}77777 
017234 
177776 



000027 



CKRAM:: 



10$: 



20$: 



000010 002246 



30$: 
50$: 



SAVRE6 

MOV 

MOV 

CLR 

JSR 

JSR 

MOVB 

JSR 

MOVB 

CMPB 

BEQ 

INC 

INC 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

MOV 

RTS 



#RAHDATA.R1 
#RMPKTBEG,R2 

R3 

PC«CHKTSSR 

PCCHKTSSR 

R2,TSDBH(R5) 

PCCHKTSSR 

TSBAL(R5).(R1) 

(R1)*,(R4)* 

20$ 

R3 

R2 

R2,#RMPKTEND 

10$ 

R3 

30$ 

50$ 

#8., RAMSIZ 
PC 



SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAN DATA 

BYTE ADDRESS OF FIRST RAN DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 

REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 

AND EXIT 

SHOW GOOD COMPARE 

SETUP RAMSIZ FOR PRAMPKT ROUTINE 

RETURN 



B S 



CZTUYAO TU80 FRONT END PRT C HACRO m200 
RAHER - READ AND DISPLAY SELECTED RAH 



2068 
2069 
2070 
2071 
2072 
2073 
207^ 
2075 
2076 
2077 

2078 010636 

2079 010636 

2080 010642 

2081 0106A6 

2082 010652 

2083 010656 

2084 010662 

2085 010666 

2086 010672 

2087 010676 

2088 010702 

2089 010706 

2090 010710 

2091 010714 

2092 010720 

2093 010722 

2094 010726 
010726 
010730 
010732 
010736 
010742 
010744 
010746 

2095 010752 

2096 010756 

2097 010762 

2098 010764 

2099 010766 

2100 010772 
010772 
010774 
011000 
011004 
011006 
011010 

2101 011014 

2102 011016 

2103 011020 

2104 011022 

2105 011024 

2106 011075 
2107 
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.SBTTL RANER - READ AND DISPLAY SELECTED RAN 



013705 
012701 
013702 
013703 
004737 
110265 
004737 
116521 
062702 
077313 
013704 
013702 
060204 
162704 

010446 
010246 
012746 
012746 
010600 
104415 
062706 
012701 
013703 
005004 
112104 
042704 

010446 
012746 
012746 
010600 
104415 
062706 
077316 
000207 
000000 
000000 
045 
045 



011022 
002206 
011020 
002246 
017234 

ymn 

017234 
177776 
000031 

002246 
011020 

000001 



011024 
000003 



000010 
002206 
002246 



177400 



011075 
000002 



000006 



ROUTINE TO READ THE SELECTED RAN LOCATIONS 
INPUT: 

R5 FIRST DEVICE UNIBUS ADDRESS 

CONSOLE UILL ALSO BE PRINTED TO 
IMPLICIT OUTPUT: 

THE TABLE RAHDATA IS FILLED WITH THE 
DATA HELD IN RAN. 



RANER: 



10$: 



20S: 



30$: 



116 
101 



50S: 
RANHID 
RANR^H 
045 RANIOP 
040 RANPD: 



SAVREG 

NOV 

NOV 

NOV 

MOV 

JSR 

NOVB 

JSR 

NOVB 

ADD 

SOB 

NOV 

NOV 

ADD 

SUB 

PRINTX 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

NOV 

CLR 

NOVB 

BIC 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

SOB 

RTS 

.WORD 

.WORD 

.ASCIZ 

.ASCIZ 

.EVEN 



RANRSH^RS 
#RANDATA.R1 
RANHLD«R2 
RANSI2,R3 
PCCHKTSSR 
R2«TSDBH(RS) 
PCCHKTSSR 



;SAVE THE GENERAL REGISTERS 
:RESET R5 TO FIRST DEVICE REGISTER 
.•ADDRESS TO SAVE THE RAH DATA 
;BYTE ADDRESS OF THE FIRST RAN DATA 
;SET THE SIZE OF THE READ UP 
:WAIT FOR THE SSR TO SET 
; SELECT NEXT RAN ADDRESS 
.WAIT FOR SSR TO SET 



TSBAL(R9),(R1)« :READ THE RAH DATA 



.•ADDRESS OF THE NEXT RAH LOCATION 
;NUNBER OF LOCATIONS COUNTER 
:GET THE RAH SIZE 
;GET THE STARTING RAH ADDRESS 
.•CALCULATE THE END ADDRESS 
.•CORRECT VALUE OF PRINTOUT 
:RAN ADDRESS s 10 • 17. ETC. 



#1.R2 
R3.10$ 
RANSIZ.R4 
RANHLD.R2 
R2.R4 
#1.R4 

#RANI0P,R2.R4 
R4.-(SP) 
R2,*(SP) 
fRANIOP.-(SP) 
f3.-<SP) 
SP.RO 
CSPNTX 
#10. SP 
#RANDATA.R1 
RANSIZ.R3 
R4 

<R1)*.R4 
#1 77400. R4 
#RANPD,R4 
R4.-(SP) 
#RANPD.-(SP> 
#2.-(SP) 
SP.RO 
CSPNTX 
#6.SP 

R3.30S .-LOOP UNTIL ALL PRINTED 

PC ; RETURN 

0 ;RAH ADDR HOLDER 1ST ADDRESS 

0 .-HOLDS R5 FOR LATER 

•XNXA Ra« Address (Octal) - X03XA - X03XN* 
'XA Z03XA • 



.•ADDRESS OF WHERE RAH DATA IS 
;THE SIZE OF THE RAH FIELD READ 
;N0 EXTRA DATA LEFT OVER 
.•PICK UP BYTE OF RAH DATA 
:GET RID OF SIGN EXTEND 
;"D10 211 111 222 377 000 123 134 ETC." 



C 5 
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CKRAM2 - COMPARE RAH TO I/O CHARACTERISTICS DATA 



PAGE 3S 



SEQ 54 



2109 




2110 




2111 




2112 




2113 




2114 




2115 




2116 




2117 




2118 




2119 




2120 




2121 




2122 




2123 




2124 




2125 




2126 




2127 




2128 




2129 




2130 




2131 




2132 




2133 




2134 




2135 




2136 011110 




2137 GJ1110 




2138 011114 


012701 


2139 011120 


012702 


2140 011124 


005003 


2141 011126 


004737 


2142 011132 


004737 


2143 011136 


110265 


2144 011142 


004737 


2145 011146 


116511 


2146 011152 


122124 


2147 011154 


001401 


2148 011156 


005203 


2149 011160 


005202 


2150 011162 


012737 


2151 011170 


020227 


2152 011174 


003756 


2153 011176 


005703 


2154 011200 


001402 


2155 011202 


000241 


2156 011204 


000401 


2157 011206 


000261 


2158 011210 


000207 


2159 





.SBTTL CKRAn2 • COMPARE RAN TO I/O CHARACTERIS1ICS DATA 

♦ 

ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAN 

NEHORV AND COMPARE THIS DATA TO A CHARACTERISTICS UTA BLOCK. 



INPUT: 



R4 
R5 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT NATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. OR 10. FOR PRANPKT ROUTINE 



SIDE EFFECTS: 



CKRAM2: 



002206 
000167 

017234 
017234 
U7777 
017234 
177776 



000010 
000176 



10$: 



002246 



20$: 



27$: 



30$: 
50$: 



SAVREG 




MOV 


«RAM0ATA,R1 


MOV 


»RMCHBEG«R2 


CLR 


R3 


JSR 


PC.CHKTSSR 


JSR 


PCCHKTSSR 


MOVB 


R2,TSDBH(RS) 


JSR 


PCCHKTSSR 


MOVB 


TSBAL(R5),(R1) 


CMPB 


(R1)*,<R4)* 


BEQ 


<0$ 


INC 


R3 


INC 


R2 


MOV 


«8.,RAnSI2 


CMP 


R2,fRNCHEN0-2 


BLE 


10$ 


TST 


R3 


BEQ 


30$ 


CLC 




BR 


SOi 


SEC 




RTS 


PC 



SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS OF FIRST RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 
ASSUME NORMAL NOT SET 
REACHED END YET ? 
BRANCH TILL ALL READ 
WAS AN ERROR FOUND ? 
BRANCH IF NOT 
CLEAR CARRY TO SHOW ERROR 
AND EXIT 

SHOW GOOD COMPARE 
RETURN 



D 5 
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CKNSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
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SFQ 55 



2161 
2162 
2163 
216A 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 

2186 -. 

2187 Oil 

2188 Oil 



011212 
12 

16 

2189 011222 

2190 011226 

2191 011232 

2192 011234 

2193 011240 

2194 011242 

2195 011244 
^196 011246 
?197 011250 

198 011254 
011260 
011262 
011264 
011266 

2203 011272 

2204 011276 
011300 
011306 



^199 
2200 
2201 
2202 



2205 
2?06 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 



011310 
011314 
011316 
011320 
011322 
011324 
011326 
011330 



010037 
010137 
005737 
001403 
004737 
010001 
005004 
005003 
010205 
011264 
011164 
022221 
001401 
005203 
062704 
020427 
003764 
032765 
001403 
020427 
003755 
005703 
001402 
000241 
000401 
000261 
000207 



002250 
0022S2 
003102 

020266 



002266 
002432 



000002 
000014 

000200 

000016 



.SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 

;♦ 

•ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPO AND RECV 
.•BUFFER. THE EXPECTED AND RECEIVED BU5FERS ARE STORED FOR 
.•ERROR PRINT ROUTINES. 



.-INPUT: 



.•OUTPUT: 



RO 
R1 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



.•IMPLICIT OUTPUT: 

: EXPMSG 
RECMS6 
RCVHIADD 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG: 



lOS: 



15$: 



2SS: 



000012 



50$: 



55$: 
60$: 



SAVREG ;SAVE R1-R5 UNTIL NEXT RETURN 

MOV RO.RCVHIADD ;SAVE RECV HIGH ADDRESS 

MOV RKRCVLOAD ;SAVE RECV LOW ADDRESS 

TST KTENABLE ; TESTING ABOVE 28K? 

BEQ 10$ ;BR IF NO 

JSR PC.SETMAP .-RETURN ADDRESS BIASED TO PAR6 IN RO 

MOV R0.R1 ;6ET RETURNED ADDRESS BIASED TO PAR6 

CLR R4 ;WORD IN BUFFER 

CLR R3 ; CLEAR ERROR SEEN FLAG 

MOV R2.R5 .-GET EXPD BUFFER ADDRESS 

MOV (R^).EXPMS6(R4) .-SAVE EXPD FOR ERROR REPORT 

MOV (R1).RECNSG(R4> ;SAVE RECV FOR ERROR REPORT 

CMP (R2)>,(R1)> ;EXPD EQUAL RECV? 

BEQ 25$ ;6R IF YES 

TNC R3 ;SET ERROR SEEN FLAG 

ADD #2.R4 .POINT TO NEXT WORD ADDRESS 

CMP R4. fU :DONE FIRST 7 WORDS? 

BLE 15$ :6R IF NO 

BIT fX2.EXTF,XST2(RS5:IS EXTENDED FEATURES SET IN EXPD? 

BEQ 50$ ;BR IF NO 

CMP R4.#16 ;DONE EXTENDED FEATURES WORD? 

BLE 15i :BR IF NO 

TST R3 :ANY ERRORS SEEN? 

BEQ S5$ :BR IF NO 

CLC ;SET FAILURE 

BR 60$ 

SEC ;SET SUCCESS 

RTS PC :RETURN 



E S 



CZTUYAO TU80 FROMT END PRT C MACRO Ml 200 
CKNSG2 • COMPARE EXPD RECV MESSAGE BUFFERS 
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.SB7TL CKMSG2 • COMPARE EXPD RECV MESSAGE BUFFERS 



2250 
2251 
2252 
2253 
225A 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
226* 
2265 
2266 
2267 
2263 



011332 
011332 
011336 
0113A2 
01134A 
011350 
011350 
011354 
011360 
011362 
011364 
011370 
011374 
011400 
011404 
011406 
011412 
011414 
011416 
011420 
011424 
011430 
011432 
011434 
011436 
011442 
011444 
011446 
011450 
011452 



020327 
003412 
012703 

012746 
012746 
010600 
104417 
062706 
010037 
010137 
005717 
001403 
004737 
010001 
005004 
005005 
111264 
111164 
122221 
001401 
005205 
062704 
020403 
002001 
000764 
005705 
001402 



000144 

000144 

011464 
000001 



000004 
002250 
002252 
003102 

020266 



002266 
002432 



000001 



ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRiNT ROUTINES. 



INPUT: 



RO 
R1 
R2 
R3 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT: 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON*T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOU ORDER ADDRESS OF RECV 



CKMSG2:: 



5$: 



10$: 
15»: 



25$: 



50$: 



SAVREG 
CMP 
BLE 
NOV 
PRINTF 
MOV 
MOV 
MOV 
TRAP 
ADD 
MOV 
MOV 
TST 
BEQ 
JSR 
M)V 
CLR 
CLR 
MOVB 
MOVB 
CMP8 
BEQ 
INC 
ADD 
CMP 
B6E 
BR 
TST 
BEQ 



.•SAVE R1-R5 UNTIL NEXT RETURN 
R3.«RECHS6-EXPflSG;aaD IS COUNT ABOVE MAX ALLOUED? 
5$ :aaD BR IF NO 

fRECMS6-EXPMSG.R3;aaD 



#DEBUGMSG 
#DEBUGNSG,-(SP) 
#1,-(SP> 
SP«RO 
CSPNTF 
f4,SP 

RO,RCVHIADO 
R1 .RCVLOAD 
KTENABLE 
10$ 

PC.SETMAP 

R0,R1 

M 

R5 

(R2).EXPMS6(R4) 

(R1),RECMSG(R4) 

(R2)*.(R1)* 

25$ 

R5 

«1,R4 

R4-R3 

50i 

15$ 

R5 

55$ 



;SAVE RECV HIGH ADDRESS 
;SAVE RECV LOU ADDRESS 
.TESTING ABOVE 28K? 
*dR IF NO 

•RETURN ADDRESS BIASED TO PAR6 IN RO 

;GET RETURNED ADDRESS BIASED TO PAR6 

:UORD IN BUFFER 

: CLEAR ERROR SEEN FLAG 

;SAVE EXPD FOR ERROR REPORT 

;SAVE RECV FOR ERROR REPORT 

;EXPD EQUAL RECV? 

*BR IF YES 

•SET ERROR SEEN FLAG 
; POINT TO NEXT BYTE 
:DONE ALL BYTES? 
;BR IF YES 
:D0 NEXT BYTE 
;ANY ERRORS SEEN? 
;BR IF NO 



C2TUYA0 TU80 FRONT END PRT C KACRO K1200 
CKHSGZ - COMPARE EXPD RECV KESSA6E SUFFERS 



F 5 
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SEO 57 



2269 
2270 
2271 
2272 
2271 
2271, 
2275 
2276 
2277 
2278 
2279 



01K54 
01U56 
01U60 
01U62 

01U64 
011554 
011565 
011620 
011653 



000241 
000401 
000261 
000207 

120 
045 
040 
056 
124 



122 
116 
040 
056 
105 



117 
045 
124 
056 
123 



55$: 
60S: 

OEBUGHSG: 
FERCM: 
ERCM: 
SIMSG: 
TINERR: 



CLC 
BR 
SEC 
RTS 



.ASCII 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



60$ 

PC 



SET FAILURE 

SET SUCCESS 
RETURN 



.ASCIZ 'PROGRAM INTERNAL ERROR -Ci(MS62 MESSAGE BUFFER EXCEEDED-* ;aaO 
/XNXA •••/ 

/ TSSR ERROR CODE REC'D - / 
/.... AFTER DOING SOFT INIT/ 
/TEST: .../ 



C2TUYA0 TUBO FRONT END PRT C HACRO H1200 
CKnSG2 - CWPARE EXPD RECV MESSAGE BUFFERS 
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2281 
2282 
2283 
228A 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 

2298 
2299 
2300 



2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 

2314 
2315 
2316 
2317 
2318 
2319 
2320 



011666 
011666 
011666 
011672 
011676 
011676 
011676 



2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 



011700 
011700 
011700 
011704 
011710 
011714 
011720 
011722 
011726 
011726 
011726 



004737 005264 
004737 020152 



104423 



004737 
012700 
004737 
013700 
005001 
004737 



104423 



005264 
000004 
007072 
002716 

014062 



PRINT ROUTINE TO FATAL SOFT INIT FRRQRS 
INPUT: 

R1 CONTENTS OF TSSR AT ERROR 

SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFINSG:: 



LI 0003: 



86NNSG SFIHSG 

JSR PCPRITSSR 

JSR PCCKDROP 
ENDNS6 

TRAP CSMSG 



.•PRINT CONTENTS OF TSSR REGISTER 
:DROP UNIT. IF ALLOWED 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AND A COMNAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 



INPUTS: 



R1 TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



PKTSSR:: 



B6NMSG PKTSSR 



L10004: 



JSR 
MOV 

JSR 
MOV 

CLR 

JSR 

ENDMSG 



PC.PRITSSR 
f4.R0 
PC.PRIPKT 
MESBFA.RO 

R1 

PC.PRNESS 



PRINT THE CONTENTS OF TSSR REGISTER 

NO. OF WORDS IN PACKET 

PRINT THE CONTENTS OF COMMAND PACKET 

ADDRESS OF MESSAGE BUFFER 

ASSUME NO HIGH MEMORY 

PRINT THE MESSAGE BUFFER ALSO 



TRAP CSMSG 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A GET STATUS COMMAND PACKET. 



INPUTS: 



R1 TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



CZTUYAO T.J80 FRONT END PRT C MACRO HI 200 
CKHSG2 - COMPARE EXPD RECV «SSAGE BUFFERS 
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SEO 59 



*;332 
2333 

2334 
2335 
2336 
2337 



2338 
2339 
2340 
2341 
2342 
<'343 
2344 
2345 
2346 
2347 
2348 
2349 

2350 
2351 



2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 

2368 
2369 
2370 
2371 
2372 



2373 



011730 
011730 
011730 
011734 
011740 
011744 
011744 
011744 



011746 
011746 
0l174fr 
011752 
011752 
011752 



011754 
011754 
011754 
011760 
011762 
011764 
CI 1770 
011770 
011770 



004737 005264 
012700 000002 
004737 007072 



104423 



BGNMSG 
PKT6ETS:: 

JSR 
NOV 
JSR 

ENDNS6 

L 10005 : 

TRAP 



PICT6ETS 

PCPRITSSR 

«2,R0 

PC.PRIPKT 



CMSG 



PRINT THE CONTENTS OF TSSR REGISTER 
NO. OF WORDS IN GET STATUS PACKET 
PRINT THE CONTENTS OF COMMAND PACKET 



.•PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
; INPUTS: 

; R1 TSSR CONTENTS 

R4 ADDRESS OF COHHAND PACKET 



004737 005264 
104423 



SFFMSG: : 



L 10006 : 



BGNMSG SFFMSG 

JSR PC.PRITSSR 
ENDHS6 



; PRINT CONTENTS OF TSSR REGISTER 



TRAP CMS6 



.S8TTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 

;♦ 

•PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
;BUFFER FOR ERROR REPORTS 



.-INPUTS: 



R1 CONTENTS OF TSSR 

R2 LOU ORDER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



004737 005264 

010200 

010301 

004737 0U062 



104425 



PKTMES:: 



L10007: 



BGNMSG PKTMES 



JSR 
MOV 
MOV 
JSR 

ENDMS6 



PC.PRITSSR 
R2,R0 
R3.R1 
PC.PRNESS 



.•PRINT CONTENTS OF TSSR 
;LOU ORDER ADDRESS 
;HIGH ORDER ADDRESS 
.•PRINT THE MESSAGE BUFFER 



TRAP CSNSG 



I 5 



C2TUYA0 TU80 FRONT END PRT C IMCRO 111200 
AOOSSR - PRINT TEST ADDRESS AND TSSR 



2375 
3376 
2377 
2378 
2379 
2380 
2581 
2382 
2583 
238A 
2585 
2586 
2587 

2588 
2589 
2590 
2591 



2592 
2595 
2594 
2595 
2596 
2597 
2598 
2399 
2400 
2401 
2402 
2405 
2404 
2405 
2406 

2407 
2408 
2409 



2410 
2411 



011772 
011772 
011772 
011776 
012002 
012006 
012006 
012006 



012010 
012010 
012010 
012014 
012020 
012020 
012020 
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.S8TTL ADDSSR - PRINT TEST ADDRESS AND TSSR 



iEO 60 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 

ERRHI HIGH ORDER NEPtORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



004757 010026 
016501 000000 
004757 005264 



104425 



ADDSSR: 



BGNNSG ADDSSR 



L10010: 



JSR 
MOV 
JSR 

ENDHS6 



PC.PRITADD 
TSSR(R5).R1 
PC. PR! TSSR 



.•PRINT MEMORY TEST ADDRESS 
;GET CURRENT TSSR 

.PRINT THE CONTENTS OF TSSR REGISTER 



TRAP CSnSG 



.SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 000007 
004757 015422 



104425 



MSGEXP;: 
5$: 

LI 0011: 



BGIMSG MSGEXP 



MOV 

JSR 

ENOMSG 



f7.R0 

PC.PRMSGEXP 



;ASSUME NO EXT FEATURES 

:PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP CSMSG 



I 
1 



J s 



CZTUYAO TU80 FRONT ENO PRT C MACRO m200 
FIFEXP > PRINT FIFO EXP/RECV DrTA 



2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 

2425 012022 
012022 

2426 012022 
012022 
012024 
012030 
012034 
012036 
012040 

2427 012044 
012044 
012050 
012054 
012056 
012060 

2428 012064 

2429 012066 

2430 012072 
012072 
012072 

2431 012074 

2432 012143 
2433 

2434 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004737 



104423 
045 
045 
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.SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 



SEQ 61 



012074 
000002 



000006 

012143 
000001 



000004 
015772 



'16 
116 



PRINT ROUTINE TO PRINT FIFO FXP/RECV DATA 

R1 - BYTE COUNT 

INPLICIT INPUTS: 

EXPflSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
RECNS6 - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 



FIFEXP: 



BGNHSG FIFEXP 



045 
045 



L10012: 

FIF1MSG: 
FIF2MSG: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

JSR 

ENDNSG 
TRAP 



»FIF1NS6,R1 

R1.-(SP> 

#FIF1MSG,-(SP) 

#2,-(SP) 

SP.RO 

CSPNTX 

f6«SP 

#FIF2MSG 

fFIF2MSG«-(SP) 

#1,-(SP> 

SP«RO 

CSPNTX 

#4,SP 

R1«R0 

PC«PRBYTEXP 



.•PRINT BYTES TRANSFERRED 



; PRINT HEADER MSG 



;GET BYTE COUNT 

.•PRINT FIFO BYTES IN ERROR 



.EVEN 



CSMSG 

.ASCIZ 

.ASCIZ 



'XNXA NUMBER OF BYTES TRANSFERRED - XD2* 
*XNXA FIFO DATA BYTES IN ERROR:' 



K 5 



C2TUYA0 TU«0 FRONT END PRT C MACRO H1200 29-MAR-83 13:43 
nSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



PAGE AT 



SEO 6? 



2436 
2457 
2438 
2439 
2440 
244 T 
2442 
2443 
2444 
2445 
2446 
2447 
2448 



2451 



2455 



2458 



2461 
2462 
2463 
2464 



2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 

2484 012716 



.S8TTL MSGSTAT • PRINT STATUS HEADER AND NESS'' BUFFERS 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPO/RECV 



IMPLICIT INPUTS: 



EXPHS6 • EXPECTED MESSAGE BUFFER 

RECMS6 - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



012202 






012202 






012202 


012701 


012244 


012206 


012100 




012210 


001410 




012212 






012212 


010046 




012214 


012746 


000001 


012220 


010600 




012222 


104415 




012224 


062706 


000004 


012230 


000766 


000012 


012232 


012700 


012236 


004737 


015422 


012242 






012242 






012242 


104423 




012244 


012262 


012324 


012262 


045 


116 


012324 


045 


116 


012415 


045 


116 


012506 


045 


116 


012577 


045 


116 


012641 


045 


116 



BGNMSG 
MSGSTAT:: 

MOV 



10$: 



20S: 



L10013: 



MOV 
BEQ 
PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADD 
BR 
MOV 
JSR 

ENDMS6 



MSGSTAT 

«STATC0D,R1 

(R1)4^,R0 

20$ 

RO 

RO.-(SP> 

#1,-(SP) 

SP.RO 

C$PNTX 

#4.SP 

lOi 

#10., RO 
PCPRMSGEXP 



; ASCI I ADDRESS TABLE 
;DONE ALL MSG LINES? 
;BR IF YES 

.PRINT STATUS BIT NAMES 



;D0 ANOTHER MSG LINE 

.•NUMBER OF WORDS IN A READ STATUS BUFFER 
.•PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP C$MS6 



012415 STATCOD: 
045 1$:.ASCIZ 



.WORD 1$.2$,3$.4$.5$.6$,0 
'XNXA Tape Bus Signals In Word #8: 



PARERR<15> lEOT <12> IFMK <9> IRDY<6> IRWD<2>' 
IRESV2<14> II0ENT<11> IHER <8> I0NL<5> IFBY<1>' 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<0>* 



045 2$:.ASCIZ *XNU 
045 3$:.ASCIZ 'INU 
045 4$:. ASCII 'XNXA - 

045 5$:.ASCIZ 'ViU T«pe Bus Signals in Word #9:' ^ , ^ , , 
045 6$:.ASCIZ 'XNIA DATMlS<7> ILW<6> 0UTRDY<5> INR0Y<4>' 

.EVEN 



.SBTTL MS6L00P - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 

♦ 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER ^ 
RCVHIAOD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 

BGNMSG NSGLOOP 



C7TUYA0 


TU80 FRONT END 


PRT C 




- PRINT LOOPBACK HEADER 




012716 






2A85 


012716 


012701 


012760 


2486 


012722 


012100 




2487 


012724 


OOUlO 




2488 


012726 








012726 


010046 






012730 


012746 


000001 




012734 


010600 






012736 


104415 






012740 


062706 


000004 


2489 


012744 


000766 




2490 


012746 


012700 


000012 


2491 


012752 


004737 


01 5422 


2492 


012756 








012756 








012756 


104423 




2495 
2494 


012760 


01 3000 


013053 


2495 


013000 


045 


116 


2496 


013053 


045 


116 


2497 


013152 


045 


116 


2498 


013251 


045 


116 


2499 


013350 


045 


116 


2500 


013447 


045 


116 


2501 


013546 


045 


116 


2502 








2503 









L 5 

HACRO Ml 200 29-«AR-83 13:43 PACE 41-1 



SEO 63 



nSGLOOP:: 

NOV 



10$: 



20$: 



L10014: 



NOV 
BEO 
PRINTX 
NOV 
NOV 
NOV 
TRAP 
ADD 
BR 
NOV 
JSR 

ENDNS6 



fLOOPCOD,Rl 

(R1)*,R0 

20$ 

RO 

RO,-(SP) 

#1,-(SP) 

SP.RO 

C$PNTX 

#4-SP 

loi 

»10.,R0 
PCPRNSGEXP 



ASCII ADDRESS TACLE 
DONE ALL NSG LINES? 
BR IF YES 

PRINT STATUS BIT NANES 



DO ANOTHER NSG LINE 

NUNBER OF WORDS IN A READ STATUS BUFFER 
PRINT EXPD/RECV NESSA6E BUFFERS 



TRAP C$NSG 



013152 LOOPCOD: 

045 1$:.ASCIZ 

045 2$:.ASCIZ 

045 3$:.ASCIZ 

045 4$:.ASCIZ 

045 5$:.ASCIZ 

045 6$:.ASCIZ 

045 7$:.ASCIZ 



•XNXA 
•XNU 
•ZNXA 
*XNZA 
•XNXA 
*XNXA 
*XNXA 



yORD 1$,2$,3$,4$,5$,6$,7$,0 
Tape Bus Loopback Signals in Word #8:* 
r. * IRESV2<14> 



.EVEN 



PARERR<15> 
IHISPs>IE0T<12> 
IWFN ->IFNK<09> 
ITAD0b>IRDY<06> 
I REV ->I0BY<03> 
160 =>IFPT<00>* 



IWRTs>IIDENT<11> 
IEDITOIHER <08> 
ITADIOIONL <05> 
IRWU s>IRWD <02> 



IRESV1<13>' 
IREV =>ICER <10>* 
IFAD =>ISPEED<07>* 
IERASEs>lLDP <04>' 
IFEN =>IFBY <01>' 



I 
I 



H 5 



C2TUYA0 TU80 FRONT END PRT C PMCRO m200 29-«W-83 13:«3 
MSGSUe - PRINT WRITE SUBSYSTEM HESSAGC BUffER 
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2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 

2519 
2520 
2521 



2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 

2540 
2541 
2542 
2543 
2544 



2545 



013574 
013574 
013574 
013600 
013604 
013604 
013604 



013606 
013606 
013606 
013612 
013616 
013622 
013626 
01 3626 
013626 



.S8TTL NSGSUB - PRINT yRITE SUBSYSTEM MESSAGE BUFFER 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 



EXPMS6 - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDEn ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



012700 000012 
004737 015422 



104423 



MSGSUB: : 



BGNMSG MSGSUB 



LI 001 5: 



MOV 

JSR 

ENDMSG 



#10., RO 
PCPRMSGEXP 



:SIZE OF URITE SUBSYSTEM BUFFER 
.•PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP C$MSG 



.SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 

PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



004737 007712 

013701 002176 

013702 002200 
004737 007474 



104423 



MEMADD: 



BGNMSG MEMADD 



L10016: 



JSR 
MOV 
MOV 
JSR 

ENDMSG 



PC. PR I ADD 
EXPD.RI 
RECV.R2 
PCPRIXOR 



PRINT MEMORY ADDRESS IN ERROR 
GET EXPD DATA 
GET RECEIVED DATA 
PRINT EXPD/RECV 



TRAP CSMSG 



N 5 



CZTUYAO TU80 FRONT END PRT C MACRO m200 29-«AR-83 13:43 PAGE 43 
PRAMPKT - PRINT RAM AND PACKET DATA 



StQ 6S 



2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 



2581 
2582 
2583 
258<. 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 



013630 
013630 
013634 
013640 
013642 
013644 
013646 
013652 
013656 
013666 
013672 
013700 
013706 
013706 
013710 
013714 
013/'20 
013722 
013726 
013732 
013734 
013736 
013742 
013744 
013750 
013752 
013756 
013760 
013762 
013766 
013770 
013774 
013776 



012701 
005002 
122124 
001000 
116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003731 
000403 
020227 
002725 
005037 
000207 
045 



.SBTTL PRANPKT - PRINT RAM AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT NATCH. 

INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMDATA 
RANSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 



PRAMPKT: 



002206 



U7777 
^77777 

177400 
\77777 
\77777 



002176 
002200 

013776 
000005 



000014 
002246 
002246 

000010 
002246 
116 



5$: 
7S: 



002200 
002176 



10$: 



15$ 
20$ 
25$ 



045 RAMASC: 



SAVREG 

MOV 

CLR 

CMP6 

BNE 

HOVB 

HOVB 

XOR 

BIC 

MOVB 

NOVB 

PRINTS 

NOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

TST 

BEQ 

CMP 

BLE 

BR 

CMP 

BLT 

CLR 

RTS 

.ASCIZ 

.EVEN 



#RAMDATA«R1 
R2 

(R1)t«(R4)t 
7$ 

-KRD.RS 
-1(R4)«R3 
R5.R3 

#1^7400, R3 
-1(R1)«RECV 
-1(R4)«EXPD 



fRAMASC . R2«RECV«EXPD«R3 
R3,-(SP) 
EXP0,-(SP) 
RECV,-(SP) 
R2,-(SP) 
#RAMA$C,-(SP) 
#5,-(SP) 
SP,RO 
CSPNTB 
*14,SP 
R2 

RAMSIZ 
15$ 

R|«R«MSIZ 

25$ 
R2,#8. 
5$ 

RAMSIZ 
PC 



;SAVE R1-R5 UNTIL NEXT RETURN 
.-DATA FROM THE RAM 
;INIT BYTE NUMBER 
.•COMPARE EXPECTED, RECEIVED 
;BR IF NO MATCH 
:GET RECV RAM DATA 
;6ET EXPD PACKET DATA 
:XOR EXPD/RECV 
;LOU BYTE ONLY 
;GET RECEIVED RAM DATA 
:GET EXPECTED RAN DATA 



UPDATE BYTE COUNT 
DEFAULT TO 8.? 
BR IF YES 
DONE ALL BYTES? 
BR IF NO 

DONE DEFAULT NUMBER OF BYTES? 
BR I F NO 

SET DEFAULT RAMSIZ 
RETURN 



'XNU BYTE: XD2S;a RAM: X03XA Packet: X03XA X0R:X03' 



B 6 



CZTUYAO TU80 FRONT END PRT C MACRO ^200 
PRHESS - PRINT CONTENTS OF MESSAGE BUFFER 



2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
261*5 
2616 
2617 
2618 
2619 
2620 
2621 
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.SBTTL PRNESS - PRINT CONTENTS OF MESSAGE BUFFER 



2622 
2623 
2624 



2625 



2626 
2627 
262u 
2629 
2630 
2631 
2632 
2633 



014062 
014062 
014066 
014072 
014074 
014100 
014102 
014104 
014106 
014110 
014112 
014112 
014114 
014116 
014122 
014126 
014130 
014132 
014136 
014142 
014144 
014144 
014150 
014154 
014156 
014160 
014164 
014164 
014170 
014174 
014176 
014200 
014204 
014206 
014210 
0U212 
0142U 
0U220 
0^*222 
014222 



010537 
010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
104415 
062706 
022715 
001010 

012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
010501 
010300 
001403 
004737 
010005 



THIS ROUTINE PRINTS THE CONTENTS OF 

THE 7 WORD MESSAGE BUFFER RETURNED BY THE 

TU80. 

INPUT: 

RO LOU ORDER ADDRESS OF MESSAGE BUFFER 

R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 

NO'": R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 

THIS ROUTiNh IS NORMALLY CALuED FROM A PRINT ROUTINE 



PRHESS: 



011022 
003102 



10S: 



014713 
000003 



000010 
y777?7 



014633 
000001 



000004 

014760 
000001 



000004 



020266 



15$: 



20$: 



SAVREG 

MOV 

MOV 

TST 

BNE 

CLR 

MOV 

ROL 

ROL 

PRINTX 

MOV 

NOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

CMP 

BNE 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

BEQ 

JSR 

MOV 



R5,RAnR5H 

R0,R5 

KTENABLE 

10$ 

R1 

R1«R3 

RO 

R1 

#PR0ASC,R1,R5 

R5.-(SP) 

RI.-(SP) 

#PROASC,-<SP) 

#3.-<SP) 

SP.RO 

C$PNTX 

#10. SP 

#17^777, (R5) 

15$ 

fMESBFN 

fMESBFN,-(SP) 

#1.-(SP) 

SP,RO 

C$PNTX 

#4,SP 

fPR1A5 

#PR1ASv,-(SP) 

#1,-<SP) 

SP.RO 

C$PNTX 

#4.SP 

R4 

R5,R1 
R3.R0 
20i 

PCSETMAP 
R0.R5 



;SAVE THE REGISTERS 

;SAVE DEVICE REGISTER POINTER 

;SAVE LOU ORDER ADDREfS 

;ADDRESS ABOVE 28K? 

*BR IF YES 

•SET HIGH ORDER ADDRESS TO 0 
;SAVE HIGH ORDER ADDRESS 
.•SHIFT BIT15 TO C BIT 
;SHIFT TO HIGH ORDER FOR PRINTOUT 
;PRINT MESSAGE BUFFER ADDRESS 



.-MESSAGE BUFFER FU( L OF ONES 
;BR IF BUFFER IS PROBABLY OKAY 
;'Y1ESSAGE BUFFER PROBABLY NOT VALID' 



.PRINT HEADER FOR CONTENTS 



.-NUMBER OF THE NEXT UORD 

;COPY LOU ORDER ADDRESS 

:COPY HIGH ORDER ADDRESS 

;6R IF NOT ABOVE 28K 

; SETUP PAR ADDRESS \H kC 

;GET PAR FORMAT ADDRESS ABOVE 28K 



PRINTX «MESHEA,(R5)^ ;PRINT 'T1ESSAGE BUFFER HEADER 



CZTUYAO TU80 F90NT END PftT C MACRO H1200 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 





012546 




nov 


0U22A 


012746 


015016 


my 


0U230 


012746 


0000C2 


ftOV 


0U234 


010600 




mv 

TRAP 


0U236 


104415 




0U240 


062706 


000006 


ADD 


0U24A 




PRINTX 


0U244 


012546 




mv 


014246 


012746 


015063 


MOV 


014252 


012746 


000002 


NOV 


014256 


010600 




NOV 


014260 


104415 




TRAF> 


014262 


062706 


000006 


ADD 


014266 






PRINTX 


014266 


012546 




NOV 


014270 


012746 


015130 


NOV 


014274 


012746 


000002 


NOV 


014300 


010600 




NOV 


014302 


104415 




TRAP 


014304 


062706 


000006 


ADD 


014310 






PRINTX 


014310 


012546 




NOV 


014312 


012746 


015175 


NOV 


014316 


012746 


000002 


NOV 


014322 


010600 




NOV 


014324 


104415 




TRAP 


014326 


062706 


000006 


ADD 


014332 






PRINTX 


014332 


012546 




NOV 


014334 


012746 


015242 


NOV 


014340 


012746 


000002 


NOV 


014344 


010600 
104413 




NOV 


014346 




TRAP 


014350 


062706 


000006 


ADD 


014354 






PRINTX 


014354 


012546 




NOV 


014356 


012746 


015307 


NOV 


014362 


012746 


000002 


NOV 


014366 


010600 




NOV 


014370 


104415 




TRAP 


014372 


062706 


000006 


ADD 


014376 






PRINTX 


014376 


012546 




NOV 


014400 


012746 


015354 


NOV 


014404 


012746 


000002 


NOV 


014410 


010600 




NOV 


014412 


1044)5 




TRAP 


014414 


062706 


000006 


ADD 


014420 


022737 


000001 002134 


CNP 


014426 


001402 




BbQ 


014430 


000137 


014540 


JNP 


014434 


40$: 


PRINTX 


014434 


012746 


014542 


NOV 


014440 


012746 


000001 


NOV 


014444 


010600 




NOV 


014446 


104415 




TRAP 


014450 


062706 


000004 


ADD 



C 6 
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(R5)*.-(SP) 
fNESHEA,-(SP) 
#2,-(SP) 
SP.RO 
CSPNTX 
#6,SP 

#DATAFL.(R5)* 
(R5)*,-(SP) 
#DATAFL,-(SP) 
#2.-<SP) 
SP,RO 
CSPNTX 
#6.SP 

«RBPCRA«(R5)« 
(R5)*,-(SP) 
#RBPCRA,-(SP) 
#2,-(SP) 
SP.RO 
CSPNTX 
#6,SP 

#XS0CON«(R5)> 
(R5)*,-(SP) 
#XS0CON,-(SP) 
#2.-(SP) 
SP,RO 
CSPNTX 
#6«SP 

#XS1C0N,(R5)> 
(R5)*,-(SP) 
«XS1C0N,-(SP) 
#2,-(SP) 
SP.RO 
CSPNTX 
#6.SP 

«XS2CON,(R5)> 
(R5)*,-(SP) 
#XS2C0N,-(SP) 
#2,-<SP) 
SP,RO 
CSPNTX 
#6,SP 

#XS3CON,(R5}^ 
(R5)*.-(SP) 
«XS3C0N,-(SP) 
#2,-(SP) 
SP,RO 
CSPNTX 
#6,SP 

#1.TRANSTST 
40i 
SOS 

#RAHFHR 
mNFHR,-(SP) 
#1,-(SP) 
SP,RO 
CSPNTX 
#4,SP 



SEO 67 



;PRINT 'tATA FIELD LENGTH 



• • • 



.-PRINT 'DESIDUAL BYTE COUNTER - 



:PRINT "XSTATO CONTENTS 



.•PRINT "XSTAT1 CONTENTS 



• 



; PRINT "XSTAT2 CONTENTS 



;PRINT "XSTAT3 CONTENTS 



; CHECK FOR RAN DUNP REOu'IRCO 
;BR. IF DUNP REQUIRED 
;N0 0U.1P 



C2TUYA0 ru80 FRONT END PRT C HACRO HI 200 29-l»'..>83 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



264A 0U454 


012737 


000010 


002246 




NOV 


26AS 014462 


012737 


000020 


011020 




NOV 


2646 014470 


004737 


010636 






JSR 


2647 014474 


012737 


000040 


011020 




NOV 


2648 014502 


004737 


010636 






JSR 


2649 014506 


012737 


000060 


011020 




NOV 


2650 014514 


004737 


010636 






JSR 


2651 014520 


012737 


000020 


002?46 




NOV 


2652 014526 


012737 


000100 


011020 




NOV 


2653 014534 


004737 


010636 






JSR 


2654 014540 


000207 






50$: 


RTS 


2655 014542 


045 


116 


045 


RAMFHR: 


.ASCIZ 


2656 014633 


045 


116 


045 


MESBFN: 


.ASCIZ 


2657 014713 


045 


116 


045 


PROASC: 


.ASCIZ 


2658 014760 


045 


116 


045 


PRIASC: 


.ASCIZ 


2659 












2660 015016 


045 


116 


045 


f«ESHEA: 


.ASCIZ 


2661 015063 


045 


116 


045 


OATAFL: 


.ASCIZ 


2662 015130 


045 


116 


045 


PBPCRA: 


.ASCIZ 


2663 015175 


045 


116 


045 


ySOCON: 


.ASCIZ 


2664 015242 


045 


116 


045 


XS1C0N: 


.ASCIZ 


2665 015307 


045 


116 


045 


XS2C0N: 


.ASCIZ 


2666 015354 


045 


116 


045 


XS3C0N: 


.ASCIZ 


2667 










.EVEN 
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SEO 68 



#8.,RAHSIZ 

«20.RANHI.D 

PC.RANEK 

«46,RANIiLD 

PC.RANER 

«60,RAHHLD 

PCRANER 

f16.,RAnSIZ 

«100,RAHHLD 

PC.RAHER 

PC 

•XNXA 

'XNZA KESSAGE 
'ZNXA Message 
'XNXA Message 



;RAN FIELD IS 8 BYTES LONG 
;fIELO STARTS AT 20 OCTAL (10 HEX) 
.-READ AND PRINT THEN 
; FIELD STARTS AT 40 OCTAL (20 HEX) 
;READ AND PRINT THEN 
.•FIELD STARTS AT 60 OCTAL (30 HEX) 
:READ AND PRINT THEN 
;RAN FIELD IS SIXTEEN BYTES LONG 
:FIELD STARTS AT 100 OCTAL (40 HEX) 
;READ AND PRiNT THEN 
'RETIMN 

**** SPECIAL H7454 RAN HENORY DUMP 
BUFFER CONTENTS PROBABLY NOT VALID' 
Buffer Address " X01X0S* 
Buffer Contents:' 



'XNXA Message Buffer Header = X06' 

'XNXA Data Field Length - X06' 

'XNXA Residual Byte Counter r X06* 

•XNXA XSTATO Contents = X06' 

*XNXA XSTAT1 Contents - X06* 

'XNXA XSTAT2 Contents - X06' 

'XNXA XSTAT3 Contents » X06' 



I 6 



CZTUYAO TU80 FRONT EKO PRT C MACRO H1200 
PRHSGEXP - PRINT EXPD/RECV HESSAGE BUFFERS 



266V 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
?68A 
2685 
2686 
2687 
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.SBTTL PRMSGEXP - PRINT EXPO/RECV MESSAGE BUFFERS 



SEO 69 



2688 



2689 
2690 
2691 
2692 
2693 
2694 
2695 



2696 
2697 
2698 
2699 

2700 
?701 
?702 
2703 
2704 



015422 
015422 
015426 
015430 
015434 
015436 
015442 
015444 
015446 
015446 
015450 
015452 
015456 
015462 
015464 
015466 
015472 
015472 
015476 
015502 
015504 
01:>S06 
015512 
015514 
015520 
015524 
015526 
015530 
015540 
015540 
015542 
015544 
015546 
015550 
01SSS4 
015560 
015562 
015564 
015570 
015572 
015574 
015576 
015600 
015602 
015647 
015705 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
000752 
000207 
045 
045 
045 



ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 

RO - NUNBER OF MRDS IN BUFFER 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



PRMSGEXP:: 









SAVREG 








NOV 


002252 






NOV 








NOV 


002250 






NOV 








ROL 








ROL 








PRINTX 








NOV 








NOV 


015602 






NOV 


000003 






NOV 








NOV 








TRAP 


00U010 






ADD 








PRINTX 


0156h7 






NOV 


000001 






NOV 








NOV 








TRAP 


000004 






AuD 








CLR 


002266 






MAki 

NOV 


002432 






NOV 






20S: 


NOV 








MAii 

RUV 








WAA 








DDI UTV 








MOV 








MOV 








MOV 








MOV 


015705 






MOV 


000005 






MOV 








MOV 








TRAP 


000014 






ADD 








INC 








CMP 








BGE 








BR 






50$: 


RTS 


116 


045 


PRMSGO: 


.ASCIZ 


116 


045 


PRMS61 : 


.ASCIZ 


116 


045 


PRMS62: 


. ASCIZ 








.EVEN 



R0,R5 

RCVLOADD, RO 
R0,R4 

RCVHIADD,R1 

kO 

R1 

fPRMSGO.RI ,R4 

R4,-(SP> 

RI.-(SP) 

«PRMSG0,-(SP) 

#3.-CSP) 

SP.RO 

C$PNTX 

#10, SP 

fPRNSGI . 

#PRMSG1,-(SP) * 

#1.-(SP) 

SP,RO 

CSPNTX 

f4,SP 

R4 

«EXPMS6,R1 
f RECMSG, R2 
(R1),R0 
(R2).R3 
R0,H3 



:SAVE R1-R5 UNTIL NEXT RETURN 

;SAVE NUMBER OF WORDS 

:GET RECV LOU ADDRESS 

;CQPV LOW ADDRESS 

;GET RECV HIGH ADDRESS 

.•SHIFT BIT15 TO C BIT 

:SHIFT TO HIGH ORDER FOR PRINTOUT 

:PRINT MESSAGE BUFFER ADDRESS 



:PRJNT HEADER FOR CONTENTS 



.NUMBER OF THE CURRENT WORD 
;6ET EXPD BUFFER ADDRESS 
:GET RECV BUFFER ADDRESS 
.-GET EXPD 
.•GET RECV 
.•XOR EXPD/RECV 



#PRMSG2,R^.(R1)t.(R2)t.R3 
R3--'SP) 
(R2)*,-(SP) 
(R1)*.-(SP) 
R4.-(SP) 
fPRMSG2,-(SP) 
f5.-(SP) 
SP.RO 
CSPNTX 
#14. SP 

R4 .-NUMBER OF THE NEXT 

R4-R5 .-DONE ALL YET? 

50i ;BR IF YES 

20$ ;D0 ANOTHER 

PC 'RETURN 

*XNZA Message Buher Address - tOUOS* 

"'SSi^flii^a' l^nUu RECV: <06tA X»: «06' 
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PRBVTEXP - PRINT ERROR BYTES IN EXP/REC fkSSAGE BUFFER 



015772 
015772 
015776 
016000 
725 016004 
72A 016006 

725 016012 

726 016016 

727 016020 

728 01 6024 

729 016030 

730 016032 
016036 



2/31 



2734 
2735 
2736 
2737 
2738 



016054 
016056 
016062 
016070 
016072 
016072 
016074 
016100 
016104 
016106 
016112 
016116 

oi6i:o 

016122 
2739 016126 
016136 
016140 
016140 
016150 
016150 
016152 
016154 
016156 
016160 
016160 
C16164 
016170 
016174 
016176 



2740 
2741 
2742 
2743 
274A 
2745 
2746 
2747 
2748 



010005 
005037 
005004 
012701 
012702 
111100 
042700 
110037 
111203 
042703 
1103i7 

122122 
001431 
005237 
023/27 
101023 

010346 
013746 
013746 
010446 
012746 
012746 
010600 
104415 
062706 

000404 



005204 
020405 
002001 
000717 

013746 
012746 
012746 
010600 
104415 



002264 



00226 
00243; 



177400 
016340 

177400 
016342 



002264 
002264 



016342 
016340 

016206 
000005 



000014 



002264 
016273 
000002 



.S8TTL PRBYTEXP - PRINT ERROR BYTES lU fxP/REC MESSAGE BUFFER 

♦ 

ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO - NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS: 



EXPNSG 
RECMSG 



PRBYTEXP:: 

SAVREG 



- EXPECTED MESSAGE BUFFER 
• RECEIVED MESSAGE BUFFER 



20S: 



000010 



27$: 



30$: 
35$: 



50$: 



MOV 
CLR 
CLR 
MOV 
MOV 
M0V8 
BIC 
MOVB 
MOVB 
BIC 
MOVB 
XOft 
CMP8 
BEQ 
INC 
CMP 
BHI 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

FORCEXIT 
BR 



R0,R5 
PRMNO 
R4 

#EXPHS6,R1 
#RECHSG»R2 
(RD.RO 
#*C<377>,R0 
RO.PRBEXP 
(R2).R3 
#*C<377>.R3 
R3,PRBREC 
R0.R3 

30$ 



PRMN0,#8. 

30$ 



#PRBMSG,R4 ,PRBEXP,PRBREC,R3 

R3.-(SP) 
PRBREC«-(SP) 
PRBEXP,-(SP) 
R4,-(SP) 
#PRBMSG,-(SP} 
f5,-(SP) 
SP.RO 
CSPNTX 
#14, SP 

50$ 



SAVE R1-R5 UNTIL NEXT RETURN 
SAVE NUMBER OF BYTES 
INIT ERROR COUNT 
NUMBER OF THE CURRENT BYTE 
GET EXPD BUFFER ADDRESS 
GET RECV BUFFER ADDRESS 
GET EXPD BYTE 
CLEAR UPPER BYTE 
SAVE FOR ERROR REPORT 
GET RECV BYTE 
CLEAR UPPER BYTE 
FOR ERROR REPORT 
XOR EXPD/RECV 
EXPD s RECV? 
BR IF YES 
UPDATE ERROR COUNT 
PRINTED 8? 
BR IF YES 



35$ 



FORCERROR 27$«N0TSSR 



INC 
CMP 
66E 
BR 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 



R4 

R4.R5 

50i 

20$ 

fPRBTOT, PRMNO 

PRMNO,-(SP) 

#PRB16t,-(SP) 

#2.-(SP) 

SP.RO 

C$PNTX 



:aao 
:aaD 

;aaD 

'iiD 

•NUMBER OF THE 
;DONE ALL YET? 
;BR IF YES 
:D0 ANOTHER 

.-PRINT TOTAL ERROR COUNT 



NEXT 
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SEQ 71 



016200 
2749 016204 
2750 

2751 016206 

2752 016273 
2753 

2754 016340 

2755 016342 
2756 

2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 

2768 016344 
016344 

2769 016344 

2770 016350 
016350 
016350 

2771 
2772 



Ot270(, 
000207 

045 
045 

000000 
OOOOOG 



004737 
104423 



000006 



116 
116 



007474 



045 
045 



PRBnSG: 
PRBTOT: 

PRBEXP: 
PRBREC: 



ADD 

RTS 

.ASCIZ 

.ASCIZ 

.EVEN 

.yORD 

.WORD 



♦6.SP 

PC 



.•RETURN 



'XNXA BYTE fXD2XA EXPD: X03XA RECV: 
*XNXA NUMBER OF BYTES IN ERROR - XD2' 



X03XA XOR: X03* 



0 
0 



;EXPD 
:RECV 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



R1 
R2 



EXPREC:: 



L10017: 



BGNMSG 

JSR 
ENDHSG 



RECEIVED DATA 
EXPECTED DATA 



EXPREC 
PC«PRIXOR 



;PRINT THE DATA 



TRAP CSnSG 



N 6 



C2TUVA0 TU80 FRONT END PRT C 
EXPBREC • PRIMT EXPU/RECV BYTE 



2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2785 
2784 
278S 
2786 
2787 
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2788 
2789 



2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 

2815 
2816 



2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 



016352 
016352 

016352 004737 007344 

016356 

016356 

016356 104423 



016360 
016360 

016360 004737 013630 

016364 

016364 

016364 104423 



.S8TTL EXPBREC - PRINT EXPO/RECV BYTE DATA 



PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



R1 RECEIVED DATA BYTE 

R2 EXPECTED DATA BYTE 



B6NNS6 EXPBREC 
EXPBREC:: 

JSR PCPRIBXOR 
ENDNS6 

L10020: 

TRAP CMSG 



;PRINT THE DATA 



.SBT7L RAffERR - PRINT RAH AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAN/PACKET DATA 
INPUTS: 

R4 POINTER TO CONKAND PACKET 
IMPLICIT INPUTS: 



RAMDATA 
RAMSI2 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RARSIZsO THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 



RAWERR * 



LI 0021: 



66NMS6 RAMERR 

'jSR PCPRANPKT 
ENDMS6 



:PRINT RAM/PACKET DATA 



TRAP CSMSG 



.S6TTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 
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2825 

m 

2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
;:840 

2841 016366 
016366 

2842 016366 

2843 016372 

2844 016376 
016376 
016376 

2845 
2846 
2847 
2848 
2849 
^850 
28S1 
2852 
2853 
2854 
2P55 
28i6 
2857 
2858 



R4 

IMPLICIT INPUTS: 

RAMDATA 
RANSI2 

ERRHI 
ERRLO 



POINTER TO COMMAND PACKET 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSI2«0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 
LOy ORDER TEST ADDRESS 



004737 010026 
004737 013630 



104423 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 



BGNMSG RANTADD 
RAMTADD:: 

JSR PCPRITADD 
JSR PCPRAHPKT 
ENDMSG 

L10022: 

TRAP CSNSG 



.•PRINT TEST ADDRESS 
;PRINT RAM/PACKET DATA 



.SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 

♦ 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 

R1 RECEIVED DATA 

R2 EXPECTED DATA 

R4 CONTROLLER RAM ADDRESS 



2865 
2866 
2867 
2868 
2869 
2870 
2871 
2S72 
2873 
2874 
2875 



016400 






016400 






016400 


042701 


177400 


016404 


042702 


177400 


016410 


004737 


007620 


016414 


004737 


007474 


016420 






016420 






016420 


104423 





RAMEXP: : 



BGNMSG RAMEXP 



L10023: 



BIC 
BIC 

JSR 

JSR 

ENDMSG 



#*C<377>,R1 
#*C<377>,R2 
PCPRIRAM 
PC«PRIXOR 



.-SAVE EXPD RAM DATA BYTE 
:SAVE EXPD RAM DATA BYTE 
.-PRINT THE RAM ADDRESS 
:PRINT THE DATA 



TRAP CSMSG 



.SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
AND TIMER A.B HEADER MESSAGE 



INPUTS: 



R1 RECEIVED DATA 

R2 EXPECTED DATA 



CZTJVAO TU80 FRONT END PRT C MACRO ^1200 
TIHEXP - PRINT TIMER A.B AND EXP/REC 
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SCO 74 



2876 
2877 

2878 01642 
01642 

2879 016422 
016422 
016426 
016452 
016434 
016436 

2880 016442 

2881 016446 
016446 
016446 

2882 
2883 

2684 016450 
2885 



012746 016450 

012746 000001 
010600 
104415 

062706 000004 

004737 007474 



104423 



045 



116 



TIHEXP: 



BGNHSG TINEXP 



045 



LI 0024: 



TIMSGO: 
.EVEN 



PRINTX 
NOV 

mv 

NOV 
TRAP 
ADD 
JSR 

tNDNSG 



flinSGO 

#TINSG0,-(SP) 

f1.-<SP) 

SP.RO 

CSPNTX 

f4,SP 

PC.PRIXOR 



.•PRINT HEADER 



; PRINT THE DATA 



TRAP CSHSG 

.ASCIZ 'SNU TINER A STATUS IS IN BIT 3SNSA TINER B STATUS IS IN BIT 2* 



K 6 



CZTUYAO TU80 FRONT END PRT C PWCRO H1200 29-WW-83 13:43 
BADSSR - PRINT TSSR ERRORS CN DATA TRANSFERS 



PAGE A8 



SEO 75 



2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 

2900 016550 
016550 

2901 016550 

2902 016552 

2903 016556 
016556 
016560 
016564 
016570 
016572 
016574 

2904 016600 

2905 016602 

2906 016606 
016606 
016606 

2907 016610 



010246 
042702 

010246 
012746 
012746 
010600 
104414 
062706 
01260? 
0047i/ 



104423 
045 



.SBTTl BADSSR • PPINT TSSR ERRORS ON DATA TRANSFERS 

PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS: 

R1 CONTENTS OF TSSR 

R2 DATA WRITTEN (8 BITS) 



BADSSR:: 



BGNMSP BADSSR 



177400 



016610 
000002 



000006 
005264 

116 



L1002S: 
04S XFERASC: 



NOV 
BIC 

PRINTB 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADO 

NOV 

JSR 

ENDNSG 
TRAi» 



R2a-(SP) 

#1 77400, R2 

#XFERASC,R2 

R2,-(SP) 

#XFERASC,-(SP) 

#2.-(SP) 

SP.RO 

CSPNTB 

#6.SP , 

(SP)^«R2 

pc.pr:ts3r 



;SAVE DATA TRANSFERRED 
;6ET JUST ONE BYTE 



.'RESTORE R2 

.•DECODE TSSR CONTENTS 



CSNSG 
.ASCIZ 



*XNXA Data Transferred = X03* 



L 6 



CZTUVAO TU80 FRONT EMO PRT C HACRO Ml 200 
SOFINIT • SOFT INITIALIZE OF CONTROLLER 



2909 
2910 

I?! 2 
2915 
29U 
2915 
|916 
2917 
2918 
2919 
2920 
2921 
292? 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
29^0 
2931 
2932 
2933 
293A 
2935 
2936 
2937 
2938 
?939 
29A0 
2941 
2942 
294' 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
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.S8TTL SOFINIT - SOFT !NITIAL12E OF CONTROLLER 



SEO 76 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY yRI.'ING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS: 



R5 ADDRESS OF FIRST REGISTER 



OUTPUTS: 



RO CONTENTS OF TSSR, IF ERROR 
CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 



01664<« 






0 6644 






0.6650 


012765 


000000 000000 


016656 


004737 


017120 


016662 


016500 


000000 


016666 


010004 


176277 


016670 


042704 


016674 


052704 


002200 


016700 


020400 




016702 


001402 




016704 


000241 




016706 


000401 




016710 


000261 




016712 


000207 





NOV 

JSR 
BCS 
ERRDF 



SOFINIT:: 

SAVREG 

NOV 

JSR 

NOV 

NOV 

6IC 

BIS 

CMP 

BEQ 

CLC 

BR 

5$: SEC 
10$: RTS 



«ADDRESS,R5 
PC, SOFINIT 
CONTINUE 



.•REPORT FATAL ERROR 



; SAVE THE REGISTERS 
#0,TSSR(R5) : 00 THE INIT. 
PCWAITF ; WAIT FOR SSR 

TSSR(R5),R0 :GET THE TSSR REGISTER 
R0,R4 :TSSR CONTENTS 

#*C<HIAOOR10FL>,R4 

#SSR'NBA,R4 :R4 HAS EXPECTED CONTENTS 
R4,R0 ;ONLY EXPECTED BITS SET ? 

5$ .-BRANCH IF OKAY 

: CLEAR THE CARRY FOR ERROR 
10$ ;G0 TO EXIT 

;SET THE CARRY BIT 
PC .RETURN TO CALLER 



it 6 



C1000A 




032700 


100000 


001 OOA 




032700 


174077 


001023 
00042A 




032700 


000200 


001011 




032700 


000040 


OOUU 




0A270A 


177761 


020427 


000016 


001007 




000410 




032700 


000040 


001405 




032700 


000006 


001002 




000241 




000401 




000261 




000207 





CZTUYAO TU80 FRONT END PRT C MACRO N1200 
CHKANB - CHECK TSSR FOR AMBIGUITY 

2952 
2953 
?954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 

2972 016714 

2973 016714 

2974 016720 

2975 016722 

2976 016726 

2977 016730 

2978 016734 

2979 016736 

2980 016740 

2981 016744 

2982 016746 

2983 016752 

2984 01 6754 

2985 016760 

2986 016764 

2987 016766 

2988 016770 

2989 016774 

2990 016776 

2991 017002 

2992 017004 

2993 017006 

2994 017010 

2995 017012 
2996 
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.S8TTL 


;♦ 




•THIS ROUTINE 


;FOR AMBIGUITY 


; INPUT: 






RO 


; OUTPUT 


• 




RO 




CARRY 


CHKAMB: 






SAVREG 




HOv 




B ff T 

BIT 




BNE 




BIT 




BNE 
dR 




at T 

BIT 




dNc 




ox 1 




BEQ 




BIC 




CMP 




BNE 




BR 


10$: 


BIT 




BEQ 




BIT 




BNE 


40$: 


CLC 




BR 


45$: 


SEC 


50$: 


RTS 



CONTENTS OF TSSR 



CONTENTS OF TSSR 



CLR - AMBIGUOUS CONTENTS 



R0,R4 
«SC,RO 
5$ 

f^C<NBA'OFLiSSRI 
40$ 
45$ 

fSSR,RO 
10$ 

#BIT5,R0 
40$ 

#*CTERCLS,R4 
R4.#16 
40$ 
45$ 

/rBlT5,R0 
45$ 

#8IT2!BIT1,R0 
45$ 

50$ 

PC 



SAVE THE GENERAL REGISTERS 
CONTENTS OF TSSR 
IS BIT 15 SET ? 
BRANCH IF YES 
!HIAOOR>,RO ;ANY OTHER BITS SET ? 

;MUST BE AN ERROR 
.•RETURN WITH SUCCESS 
;IS READY BIT SET ? 
.BRANCH IF READY BIT IS SET. 
;IS FATAL ERROR BIT SET ? 
.•ERROR IF NOT 

.'CLEAR ALL BUT TERMINATION CODE 
.-ALL THREE BITS MUST 6E SET 
.•ERROR IF NOT SET 
;0K IF ALL ARE SET 
;IS FATAL ERROR BIT SET ? 
;ERROR IF BIT IS SET WITH SSR 
;IS THIS A FUNCTION REJECT 
;BR. IF TSSR IS OK 
.•AMBIGUOUS CONTENTS 

;SHOU SUCCESS - NO AMBIGUITY 
.•RETURN TO CALLER 



N 6 



CZTUYAO TU80 FRONT END PRT C MACRO Ml 200 
ENAINT,OSBINT > ENABLE/DISABLE INTERRUPTS 



2998 






2999 






3000 






3001 






3002 






3003 






3004 






3005 






3006 






3007 




000200 


3008 




000001 


3009 






3010 






3011 


017014 


000 


3012 






3013 


017015 


000 


3014 






3015 






3016 


017016 


000000 


3017 






3018 


01 7020 


000000 


3019 






3020 






3021 


017022 


010046 


3022 


017024 


013700 


3023 


017030 


012720 


3024 


017034 


012720 


3025 


01 7040 


012600 


3026 


017042 


011646 


3027 


017044 


012766 


3028 


017052 


000002 


3029 






50S0 






3031 


017054 


011646 


3032 


01 7056 


012766 


3033 


017064 


000002 


3034 







002156 
017066 
000340 



000000 0000 



000340 000002 



29-nAR-83 13:43 PAGE 51 



.S8TTL ENAINT^OSBINT - ENABLE /DISABLE INTERRUPTS 
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; DEFAULT DISPLAY INTERRUPT HANDLERS. 

; IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 

; OTHERWISE. SAVE DPU REGISTERS AND DISMISS. 

• 

: BIT DEFINITIONS FOR "INTHASK" AND "INTFLAG" BYTES: 



I0KCKIN4IT7 
lOKSTPsBlTO 



DON'T CHECK FOR BAD INTERRUPTS — TEST WILL. 
EXPECT "STOP" INTERRUPT. 



.•INTERRUPT MASK — SAYS EXPECTING INTERRUPTS 
INTMASK: .BYTE 0 

.•INTERRUPT FLAG — SAYS WE GOT ONE (IF POSITIVE) 
INTFLAG: .BYTE 0 

.•SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 
;SAVE CPU PC 
INTCPC: .WORD 0 



.•SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO.-(SP) ;SAVE RO 

IVEC.RO 
#INTR.(RO)«^ 
fPRI07.(R0)^ 
(SP)^.RO 
(SP),-(SP) 
f0.2(SP) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



:6ET POINTER TO VECTORS 
:SET UP INTERRUPT VECTOR 



.•RESTORE RO 
.-SET CPU TO LEVEL 0 



.•SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: MOV (SP).-(SP) 

MOV #PRI07.2(SP) 

RTI 



J 



B 7 



CZTUYAO TU80 FRONT END PRT C 
INTR - INTERRUPT HANDLERS 
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3056 
3037 
3038 

3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 



3048 
3049 



017066 
017066 

017066 01^737 000001 002172 

017074 105037 017015 

017100 132737 000001 017014 

017106 001003 

017110 152737 000001 017015 



017116 
017116 
017116 

017116 000002 



INTR:: 



.SBTTL INTR 
BGNSRV INTR 



- INTERRUPT HANDLERS 

.•DEFINE INTERRUPT ENTRY 



NOV #1,INTRECV :SET FLAG TO SHOW INTERRUPT RECEIVED 

CLRB INTFLAG ; CLEAR FLAG TO SAY U£ GOT INTERRUPT 

BITB #IOKSTP.INTNASK .'EXPECTING STOP INTERRUPT? 

BNE IS ;BR IF YES 

BISB flOKSTP, INTFLAG ;N0. SET THE ERROR FLAG. 

;SAVE REGISTERS. NSG BUFFER. ETC. 
IS: 

ENDSRV 

LI 0026: 

RTI 



CZTUYAO TU80 FRONT END PRT I MACRO HI 200 
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3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
306 
306 
1064 
3065 

3066 
3067 



3068 
3069 
3070 
3071 
3072 



3073 
3074 
3075 
3076 
3077 
3078 
3079 



017120 
017120 
017122 
017126 
017126 
017132 
017134 
017140 
017142 
017146 
017150 
017154 
017156 
017162 

017164 
017166 
017166 
017172 
017174 
017200 
017202 
017206 
017210 
017214 
017216 
01722C 
017222 
017224 
017226 
017230 
017232 



104422 
012746 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016500 
105700 

100420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005316 
001356 
000241 
000401 
000261 
005326 
000207 



010000 
000001 
002116 
y77772 
177756 
000000 

000001 
002116 
y77772 
177756 



.SBTTL WAITF - WAIT FOR SUBSYSTEM READ^ 
SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
INPUTS: 

R5 ADDRESS OF FIRST DEVICE REGISTER 



OUTPUTS: 



WAITF; 



2S: 



3$: 
4$: 



RO 

CARRY 



BREAK 

TRAP 

NOV 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

MOV 

TSTB 

BMI 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

BR 

SEC 

DEC 

RTS 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 



CSBRK 

#10000.-(SP) 
#1,(PC)* 

L$DLY.(PC)* 

0 

-6(PC) 
.-4 

-22 (PC) 
.-20 

TSSR(R5).R0 
RO 

3$ 

1 

#1.(PC)* 

0 

L$DLY,(PC)* 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 
(SP) 
2$ 

4S 

(SP)* 
PC 



; DO A SUPVSR BREAK FIRST. 

;BIG MSEC TIMER 
;DELAY lOOUS 



:READ THE TSSR REGISTER 
;TEST FOR READY BIT SET 

: EXIT ON STOP FLAG. 
: WAIT 100 USEC 



.•REDUCE DELAY COUNT 

.-RETRY UNTIL TIMER EXPIRES 

; C s 0. CONTROLLER STILL RUNNING... 

:...0R HUNG-UP AFTER 300 MSEC. 

; C - 1. CONTROLLER IS STOPPED. 

.•RESTORE STACK WITHOUT CHANGING CARRY BIT 



D 7 



C7TUYA0 TU80 FRONT END PRT C 
CHKTSSR - CHECK TSSR FOR READY 



3081 
3082 
3085 
3084 
3085 
3086 
3087 
3088 
3089 
5090 
5091 
5092 
3095 
509A 
3095 
3096 
3097 
5098 
3099 

5100 017234 

5101 017254 

5102 017240 

5103 017242 

5104 017246 

5105 017250 
3106 017254 

5107 017256 

5108 017262 

5109 017264 

5110 017266 

5111 017270 

5112 017272 
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004757 017120 
105014 

004757 016714 
105006 

032700 100000 
001405 

032700 074000 

001402 

000241 

000401 

000261 

000207 



.SBTTL CHKTSSR - CHECK TSSR FOR READY 



THIS ROUTINE WAITS FOR READY IN THE TSSR 
AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



INPUT: 



R5 



OUTPUT: 



CHKTSSR: 



10S: 

15$: 
20S: 



ADDRESS OF CSR REGISTERS 



RO CONTENTS OF TSSR 

CARRY SET - OKAY 

CLR - NOT READY AMBIGUOUS. OR SC SET 



JSR PC.UAITF :WAIT FOR READY 

BCC 20i .BRANCH IF TINE OUT 

JSR PC.CHKAHB ;TSSR AHBI60US? 

BCC lOi :BR IF YES 

BIT fSCRO .SPECIAL CONDITION SET? 

BEO 15$ ;8R IF NO 

BIT «<$CE!BIE!RMR!NXM>,RO ; ANY ERROR BITS SET? 

BEO 15$ :BR IF NO 

CLC ;SET FAILURE 

BR 20$ 

SEC -SET SUCCESS 

RTS PC : RE TURN TO CALLER 



CZTUYAO TU80 FRONT END PAT C HACRO Ml 200 
XNXn - CHECK ''OR NONEXISTENT MEMORY 



3114 
3115 
3116 
3117 
3118 
5119 
3120 
5121 
5122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 



3139 
3140 
3141 
3142 
3143 
3144 
3KS 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
5161 
5162 
5163 
5164 
3165 
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.SBT7L XNXN - CHECK FOR NONEXISTENT MEMORY 



017274 
017302 
0V310 
017312 

017314 
017316 
017320 
017324 

017326 
017330 
017334 
017336 
017336 
017342 
017344 
017346 
017350 
017352 



017354 
017354 
017360 
017362 
017566 
01 7570 
017574 
017376 
017400 
017402 
017404 



012757 017526 000004 
012757 000200 000006 
005005 
005711 

020102 
001407 

062701 000002 
000772 

005103 

012716 017336 
000002 

012700 000004 

104436 

005703 

001401 

000261 

000207 



005737 002136 
C01006 

005737 002152 
100403 

005357 002164 

001002 

000241 

000401 

000261 

000207 



ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU fR2). 
ON RETURN* IF "C" - 1. (RU » NEXM AODRcSS. 

"C" - 0, ALL ADDRESSES OK. 

CALL: 

MOV ADR2,R2 

ICD Pr MVM 

.-TEST 'V AND PROCEED. 
; SET 8USERP VECTOR. 
.-FLAG. 

.-TEST THE ADDRESS(ES). 
;IF ANY TRAP, CONTINUE AT 2$. 
^•OTHERWISE, CONTINUE HERE. 
;BR IF FINISHED (NO MEXM*S). 
;SET NEXT ADDRESS... 
:...AND CONTINUE. 

2$: COM R5 ;GOT ONE, SET FLAG.., 

:...AND DISMISS INTERRUPT... 
3$: CLRVEC «4 . ;...AND GIVE BACK THE VECTOR. 



XNXM: 
1$: 



MOV ADRI.RI 


MOV ADR2,R2 


JSR PC.NXM 


RETURN 




MOV 


«2$,8#4 


MOV 


«PRl04,8f6 


CLR 


R3 


TST 


(R1) 


CMP 


R1,R2 


6EQ 


3S 


ADD 


«2,R1 


BR 


U 


COM 


R5 


MOV 


«3t,(SP> 


RTI 




CLRVEC 


«4 


MOV 


«4,R0 


TRAP 


CSCVEC 


TST 


R3 


BEQ 


.♦4 


SEC 




RTS 


PC 



:DID WE CATCH ONE ?? 

;N0. "C" = 0, SK»P NEXT. 

;YES, 'V s 1. (R1) = NEXM ADDR. 



.SBTTL TSTLOOP - CHECK ITERATION COUNT 
SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT WITH "C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COLDER IS SET 9Y 'BEGIN.TEST" MACRO. 

CALL: LOOPTO ARC 



TSTLOOP:: 

TST 
BNE 
TST 
BMI 
DEC 
BNE 
CLC 
BR 
SEC 
RTS 



1$: 

II! 



NOITS 
1$ 
QVP 
1$ 

LOOPCNT 
2% 

3$ 

PC 



: ITERATIONS INHIBITED? 

; YES. 
* NO 

•LOOPS DISALLOWED IN QUICK PASS. 
; BUMP LOOP COUNTER. 

;LOOP DISALLOWED, OR DONE. 

;LOOP ENABLED. 



F 7 



CZTUYAO TU80 FRONT EMO PRT C MACRO M1200 
TSTLOOP - CHECK ITERATION COUNT 
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SEO 83 



3167 
3168 
3169 
3170 
3171 
3172 
3173 
3i74 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
5183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
^192 
5193 
5194 
3195 
5196 
5197 
5198 
5199 
5200 
5201 
3202 
5203 
5204 
5205 
3<;06 
3207 



3208 
3209 
3210 



3211 
3212 



3213 



.SeiTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 

VrINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT 'lESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



INPUT: 



RO 



POINTER TO TEST ID ASCI2 STRING 



OUTPUT: 



R5 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



017406 








TSTSETUP: : 


01 7406 


010046 








MOV 


017410 


005037 


003106 






CLR 


017414 


005037 


017654 






CLR 


01 7420 


005037 


005232 






CLR 


017424 


105037 


017014 






CLRB 


017430 


013700 


002150 






HCV 


017434 


006300 








ASL 


017436 


005737 


003062 






TST 


017442 


001430 








BEQ 


017444 


100010 








BPL 


01 7446 


052760 


160000 


003130 




BIS 


017454 










ERRDF 


017454 


104455 








TRAP 


017456 


000001 








.WORD 


017460 
017462 


003636 








.WORD 


005176 








.WORD 


017464 


000407 




003130 


3$: 


BR 


017466 


052760 


160001 


BIS 


017474 










ERRDF 


017474 


104455 








TRAP 


017476 


000002 








.WORD 


017500 


004233 








.WORD 


017502 
017504 


OOOQOO 
012737 


177777 


003060 


2$: 


.WORD 
MOV 


017512 










DODU 


017512 


013700 


002150 






MOV 


017516 


104451 








TRAP 


017520 










COCLN 



RO,-(SP) 
SIFLA6 
ERRK 
EXTA 
INTMASK 
UNITN.RO 
RO 

NODEV 
4S 

f160000,ERTABL(R6) 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT NUMBER, 
... AND MAKE IT A WORD OFFSET. 
DID STARTUP FIND THE DEVICk? 
BR IF YES 
BR IF NOT IDLE 

FLAG ERROR IN THE ERROR TABLE 



1. NXR.NXRERR ; NO DEVICE HERE — PRINT IT 
ciERDF 

1 

NXR 

NXRERR 

#160001 ,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 

2. N0INlf ; DEVICE NOT IDLE 
CSERDF 

2 

NOINIT 



#-1 ,DUFLG 
UNITN 
UNITN.RO 
CSDODU 



DROP THE UNIT 



ABORT THE PASS 



CZTUVAO ru60 FRONT END PRT C MACRO m200 13:A3 
TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 



At: 



6 7 
PACE S6-1 



SEO 



017S20 


104444 




32U 017522 


000423 




3215 






3216 01752A 






017524 


104421 




3217 017526 


032700 


001000 


3218 017532 


001412 




3219 01753A 


011600 




3220 017536 






01 7536 


010046 


017602 


017540 


012746 


017544 


012746 


000002 


017550 


010600 




017552 


104417 




017554 




000006 


3221 017560 


005237 


002162 


3222 017564 






017564 


013700 


002160 


017570 


104441 




3223 017572 


005726 


002154 


3224 017574 


013705 


3225 017600 


000207 


123 


3226 017602 


045 


3227 







IS: 

5S: 
OAS TNAN: 



TRAP 


CSDCLN 


BR 


ss 


RFLA6S 


RO 


TRAP 


CSRFLA 


BIT 


tPNT.RO 


BEQ 


IS 


fWV 


(SP) .RO 


PRINTf 


#TNAN,RO 


NOV 


RO,-(SP) 


NOV 


#T»IAH,-(SP) 


NOV 


#2,-(SP) 


NOV 


SP«RO 


TRAP 


CfPNTF 


ADD 


#6,SP 


INC 


TSTCNT 


ScTPRI 


f nflk f 


NOV 


IPRI.RO 


TRAP 


CSSPRI 


TST 


(SP)* 


NOV 


CSRADDR,R5 


RTS 


PC 


.ASCIZ 


*XSXTXA Test* 


.EVEN 





; GET THE OPERATOR FLAGS. 

; PRINT THE TES^ NUNBERS? 
* BR IF NO 
:6ET THE ID MESSAGE 
.-DISPLAY THE TEST ID 



; BUMP TEST COUNTER. 
.•PRIORITY THAT OF DEVICE 



;FIX UP THE STACK 

: ADDRESS OF TSV REGISTERS ON UNIBUS 



H 7 



C2TUVA0 TU80 FRONT END PRT C PUCRO M1200 
TSTEND • PRINT ERRORS RECEIVED 



3229 
3230 
3231 
3232 
3233 
3234 

^235 
5236 
3237 



3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3?57 
5258 
3259 
5260 
3261 
3262 
5263 
5264 
5265 
3266 
3267 
3268 
3269 
3270 

327' 
3272 
3273 
3274 



017616 
017616 
017620 
01 7624 
01 7626 
017626 
017632 
017636 
017642 
017644 
017646 
017652 

01 7654 
017656 
017675 



017742 
017746 
017750 
017754 
017756 
017762 
017764 
017770 
017772 
017774 
017776 

020000 
020002 
020006 
020010 
020014 
020020 
020024 
020026 
020034 
020036 
020036 
320040 
020044 
020046 
020054 
020054 
020056 
020060 



104421 
030027 
001412 

0^3746 
012746 
012746 
010600 
104417 
062706 
000207 

000000 
045 
105 



005237 
010046 
013700 
006300 
062700 
005210 
052710 
001001 
005310 
012600 
000207 

010046 
013700 
006300 
016000 
042700 
020037 
103004 
023737 
103417 

104421 
032700 
001013 
012737 

104455 
000004 
017675 



020000 



017654 
017656 
000002 



000006 



101 

:22 



000040 
177777 
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.3BTTL TSTEND - PRINT ERRORS RECEIVED 



SEQ 85 



; AT END OF EACH TEST, PRINT TH£ NUMBER OF ERRORS RECEIVED 
; IF NORMAL ERROR REPORTING IS DISABLED (FLAzIER). 



tSTEND: RFLA6S 
TRAP 
BIT 
BEO 
PRINTF 
NOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

IS: RTS 



BR IF "lER" NOT SET. 
PRINT ERROR COUNT. 



ERRK: 
040 ESUM: 
122 EMAXDU: 



0 

.ASCIZ 
.ASCIZ 
.EVEN 



RO 

CSRFLA 

RO,flER 

U 

fESUH^ERRK 

ERRK,-(SP) 

«ESUM,-(SP) 

f2.-(SP) 

SP,RO 

CSPNTF 

f6,SP 

PC 



; LOCAL ERROR COUNT. 

/SA XDXA ERRORS/ 

/ERROR LIMIT REACHED — DROPPING UNIT/ 



.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 



ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 



017654 


InCERK: 


INC 






MOV 


002150 




MOV 






ASL 


003130 




ADD 






INC 


007777 




BIT 






BNE 

DEC 




1$: 


MOV 






RTS 




CKEMAX: 


MOV 


002150 




MOV 






ASL 


003130 




MOV 


170000 




BIC 


002142 




CMP 






8HIS 


017654 002140 




CMP 






BLO 



IS: 



003060 



RFLAGS 
TRAP 
BIT 
BNE 
MOV 
ERRDF 
TRAP 
.WORD 
.yORD 



ERRK 
ROt-(SP) 
UNITN.RO 
RO 

#ERTABL«RO 

(RO) 

#7777. (RO) 

IS 

(RO) 

(SP)*,RO 
PC 

ROt-(SP) 
UNITN.RO 
RO 

ERTABL(RO),RO 
#170000.R0 
RO.GERRMAX 
IS 

|RRKaERRNAX 
RO 

CSRFLA 
#IDU,RO 

#-1 .DUFL6 
4.ENAXDU 
CSERDF 
4 

EMAXDU 



INCREMENT LOCAL ERROR COUNT 
SAVE RO 

GET UNIT NUMBER. 

... AND MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID VE OVERFLOW THE FIELD? 

BR IF NO 

YES — BACK IT UP TO 7777. 
RESTORE RO 
RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

... AND MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES. 

NO DROP THE UNIT 



CZTUYAO TU80 FRONT END PRT C HACRO HI^OO 
INCERK - INCREMENT LOCAL ERROR COUNT 
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SEQ 86 



3275 



0062 
0064 
0064 
0070 
0072 
0072 
0074 



3276 

3277 _ 

3278 020076 
3279 

3280 
3281 
5282 
3283 
3284 
3285 

3286 020100 

3287 020100 

3288 020104 
5289 020110 
3290 020112 

020120 
020124 

5293 020132 

5294 020154 
0201 34 
0201 36 

^ 020U2 
529? 020U4 
5298 020150 
3299 
5300 
3501 



5291 
5292 



329j 
5296 



000000 

015700 
104451 

104444 
012600 
000207 



015701 
U06501 
062761 
005237 
025727 
002406 

104421 
052700 
001002 
004757 
000207 



002150 



2%: 



.yORO 

DODU 

PN)V 

TRAP 

OOCLN 

T'JAP 

HOV 

RTS 

.SBTTL 



FATCHK: 



C02150 

000001 
002170 
002170 



040000 
020152 



003130 
000031 



9S: 



0 

UNITN 

UNITN«RO 

CSOOOU 

CSOCLN 
<SP)*.R0 
PC 



RESTORE RO 
RETURN TO CALLER 



FATCNK - INC FATAL ERRORS AND CHECK FOR LIMIT 



CHECK FATAL COUNTER^ AFTER INC, FOR MORE THAN 25 
ERRORS AND IF OVER CALL UNIT DROP ROUTINE 



SAVRE6 

mv 

ASL 
ADD 
INC 
CNP 
BLT 

RFLA6S 

TRAP 

BIT 

BNE 

JSR 

RTS 



UNITN,R1 
R1 

#nERTABL(R1) 
FATFL6 
FATFLG,f25. 
9$ 

RO 

CtRFLA 

«SIT14,R0 

9S 

PCCKDROP 
PC 



;6ETTER SAVE THE REGISTERS 

:PICK UP THE UNIT NUMBER 

;MAKE IT INTO A BYTE OFFSET 

;ADD 1 TO THE PROPER UNIT'S ERROR COUNTER 

;BUMP FATAL ERROR COUNTER 

.'CHECK AGAINST 25 

;BR, IF LESS THAN 25 ERRORS 

.-READ THE FLAGS INTO RO 

:BR« IF LOOP ON ERROR IS SET 
.-OTHERWISE NEVER BE ABLE TO SCOPE ETC. 
.-DROP UNIT IF ALLOWED 
.•RETURN ETC 



I 
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CZruYAO TU80 FAONT END PRT C MACRO H1200 
CKDROP - CHECK IF UNIT SHOULD BE DROPPED 




0152 
0154 
.0164 
10164 

0174 
0176 
!0204 
. '0204 
0^0210 
^315 020212 
020212 

3316 U20214 

3317 020216 
3318 

3319 
3320 
3321 
3322 
33?3 
3324 

^326 020220 

3327 020220 

3328 020224 
3329 

3330 
3331 



010046 



104421 
032700 
001010 
011600 
012737 

013700 
104451 

104444 
012600 
000207 
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.SeTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 



SEO 87 



CHECK IF UNIT SHOULD BE DROPPED 



000040 



}77777 003060 
002150 



TRAP 
BIT 



CKDROP: my RO.-(SP) 

FORCERROR U.NOTSSR 
RFLAGS RO 

CIRFLA 
fIDU.RO 
1$ 

(SP),RO 
f-1 ,DUFL6 
UNITN 
UNITN.RO 
CSDODU 



IS: 



NOV 
NOV 

DODU 
NOV 
TRAP 
DOCLN 
TRAP 
NOV 
RTS 



C$DCLN 

(SP)^,RO 

PC 



;ABORT THE PASS 



004737 016644 
000207 



.SBTTL CONFIG - DETERHINE CONFIGURATION OF SYSTEN 
SUBROUTINE - DETERNINE CONFIGURATION OF TU80 SYSTEN. 
eONFIG: 



JSR 
RTS 



PCSOFINIT 
PC 
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KTON.KTOFF - ENABLE /DISABLE NEPfORY nANAGENENT 



SEO 83 



3555 
555A 
5555 
5536 
5537 
3538 
3559 
55AO 
5341 
33A2 
33A3 
5544 
J 345 

3346 
3347 

5348 
5549 
5550 
3351 
3352 
3353 
3354 



.SBTTL KTON.KTOFF 
; SUBROUTINE - ENABLE NEH HGT. 



KTON: 



020^26 005737 003100 

020252 001405 

020234 012737 000001 177572 

020242 000?07 IS: 



TST 
BEQ 
NOV 
RTS 



KTFLG 
1$ 

#1,SR0 
PC 



- ENABLE/DISABLE MEPIORY NANAGENENT 



GOT KT? 
NO. 

YES. ENABLE KT11. 



; SUBROUTINE - DISABLE HEN HST. 



020244 005737 003100 

020250 001405 

020252 000240 

020254 000240 

020256 012737 000000 177572 

020264 000207 



KTOFF: 



IS: 



TST 
BEO 
NOP 
NOP 
MOV 
RTS 



KTFLG 
IS 



#0,SRO 

PC 



; GOT KTII? 
; NO. 



; DISABLE KT. 
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CZTliYAO TU80 FROWT END PRT C 
SETMAP - SETUP PAR6 MAPPING 

3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 

3375 020266 

3376 020266 

3377 020272 005737 003100 

3378 020276 001433 

3379 020300 010102 

3380 000006 
3381 

3382 
3383 

3384 020332 042701 000177 

3385 020336 020137 003100 

3386 020342 103011 

3387 020344 010137 172354 

3388 020350 042702 160000 

3389 020354 062702 140000 

3390 020360 010200 

3391 020362 000261 

3392 020364 000401 

3393 020366 000241 

3394 020370 000207 
3395 
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SEO 80 



.SBTTL SETNAP - SETUP PAR6 HAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET !NTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO 
R1 



OUTPUTS: 



RO 

CARRY 



SETMAP: 



10$: 
15$: 



SAVREG 

TST 

BEQ 

NOV 

.REPT 

ASR 

ROR 

.ENDR 

BIC 

CHP 

BHIS 

NOV 

BIC 

ADD 

NOV 

SEC 

BR 

CLC 

RTS 



HIGH ORDER ADDRESS BITS 
LOU ORDER ADDRESS BITS 



OFFSET INTO BLOCK UITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 



KTFLG 

10$ 

R1«R2 

6 

RO 
R1 

#177,R1 
R1. KTFLG 

loi 

R1.a#KIPAR6 
#160000,R2 
#140000«R2 
R2,R0 

15$ 

PC 



;SAVE R1-R4 UNTIL NEXT RETURN 
.-SYSTEM HAVE ABOVE 28K? 
*BR IF NO 

;SAVE LOU ORDER BITS 

.•CONVERT yORD ADDRESS TO 32y BLOCKS 
:MAKE IT DOUBLE PRECISION 



ALINE FOR LOWER 4K BOUNDARY 
HIGHER THAN EXISTING MEMORY? 
BR IF YES 

SETUP MAPPING REGISTER PAR6 
SETUP DISPLACEMENT IN PAGE 
ADD IN PAR6 BIAS 
RETURN IN RO 
SET SUCCESS 

SET FAILURE 
RETURN 
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FILLNEM - FILL MEMORY UITH BACKGROUND PATTERN 
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SEQ 90 



5397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 

3412 020372 

3413 020372 

3414 020376 

341 5 020402 

3416 020404 

3417 020410 

3418 020414 

3419 020416 

3420 020420 

3421 020422 

3422 020426 

3423 020430 

3424 020434 

3425 020436 
3426 

3427 
3428 
3429 
3430 

3431 020506 

3432 020512 

3433 020514 

3434 020520 

3435 020522 

3436 020526 

3437 020534 

3438 020542 

3439 020544 

3440 020550 

3441 020554 
3442 

i443 



004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001452 
004737 
005000 
013701 
000006 



004737 
010320 
020027 
103774 
162700 
062737 
023737 
001402 
000137 
004737 
000207 



020244 

003072 
003074 



003100 
020226 
003104 



020266 

160000 

020000 
000200 
172354 

020512 
020244 



.SBTTL FILLMEM - FILL MEMORY UITH BACKGROUND PATTERN 
FILL MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 

RO = BACKGROUND PATTERN 



FREE 
KTfLG 

OUTPUTS: 

NONE 



: FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
= SET TO HIGHEST MEMORY LOCATION IF > 28K. 



FILLMEM: 



10$: 



30$: 



172354 
003100 



50$: 
55$: 



SAVREG 

JSR 

MOV 

MOV 

MOV 

MOV 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

.REPT 

CLC 

ROL 

ROL 

.ENDR 

JSR 

MOV 

CMP 

BLO 

SUB 

ADD 

CMP 

BEQ 

JMP 

JSR 

RTS 



PCKTOFF 

R0,R3 

FREE,R1 

FRESIZ,R2 

R3,(R1)* 

R2 

10$ 

KTFLG 

55$ 

PCKTQN 
RO 

PST32U,R1 
6 

R1 
RO 

PCSETMAP 
R3.(R0)^ 
RO.f 160000 
30i 

#20000, RO 

«200,a«KIPAR6 

3#KIPAR6,KTFLC 

50$ 

30$ 

PCKTOFF 
PC 



SAVE R1-R5 UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOU 28K. 

STORE A BACKGROUND WORD 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32U BLOCKS) 

; CLEAR C BIT 

.CONVERT BLOCKS TO WORDS 
.MAKE IT DOUBLE PRECISION 

SETUP PAR6 MAPPING REGISTER 
STORE TEST PATTERN IN >28K ADDRESS 
END OF PAR6 MAPPING AREA? 
BR I F NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28K. 
END OF MEMORY? 
BR IF YES 
KEEP GOING ON ETC. 
DISABLE KT. 



H 7 



C2TUYA0 TU80 FRONT END PRT C BACRO H1200 29-«AR-83 13:43 
CMPHEH - COMPARE HEHORY TO BACKGROUND PATTERN 



PAGE 62 



SEO 9^ 



3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 

3467 020556 

3468 020556 

3469 020562 
347 ) 020564 

3471 020570 

3472 020574 

3473 020600 

3474 020602 

3475 020604 

3476 020610 

3477 020614 

3478 020620 

3479 020624 

3480 020626 

3481 020630 

3482 020632 
5483 020634 

3484 020640 

3485 020642 

3486 020646 

3487 020650 
3488 

3489 
3490 
3491 

3492 020704 

3493 020710 

3494 020712 

3495 020714 

3496 020720 

3497 020722 

3498 020724 

3499 020726 

3500 020730 

3501 020732 



010003 
004737 
013701 
013702 
020311 
001411 
010137 
005037 
010337 
011137 
000474 
005721 
005302 
003362 
005737 
001472 
004737 
005000 
013701 
000006 



042701 
010046 
010146 
004737 
010004 
012601 
012600 
020314 
001411 
010037 



.SBTTL CHPNE« - COMPARE MEMORY TO BACKGROUND PATTERN 
COMPARE MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 

RO - BACKGROUND PATTERN 

FREE FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 28K. 

OUTPUTS: 

CARRY 
CARRY 



- SET IF NO ERROR 

- CLR IF ERROR 



IMPLICIT OUTPUTS: 



ERRHI 
ERRLO 
EXPD 
RECV 



- ERROR HIGH ADDRESS 

- ERROR LOU ADDRESS 
• EXPECTED DATA 

- RECEIVED DATA 



CMPMEN: 



020244 
003072 
003074 



002204 
002202 
002176 • 
002200 



003100 
020226 
003104 

000177 
020266 

002202 



10$: 



15$: 



30$: 



SAVRE6 

MOV 

JSR 

MOV 

MOV 

CMP 

6EQ 

NOV 

CLR 

MOV 

NOV 

BR 

TST 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

.REPT 

ROL 

ROL 

.ENDR 

BIC 

MOV 

MOV 

JSR 

NOV 

NOV 

MOV 

CMP 

BEQ 

NOV 



R0,R3 
PCKTOFF 
FREE,R1 , 
FRES12,R2 
R3.<R1) 

isi 

R1 .ERRLO 

ERRHI 

R3.EXPD 

(RD.RECV 

50$ 

(RD* 

R2 

10$ 

KTFLG 

55$ 

PC.KTON 
RO 

PST32U.R1 

6 

R1 

RO 

#177.R1 

RO.-(SP) 

R1,-(SP) 

PCSETHAP 

R0,R4 

(SP ♦.Rl 

(SP)*,RO 

R3,(r4) 

32$ 

RO.ERRHI 



SAVE R1-RS UNTIL NEXT RETURN 
COPY TEST PATTERN 
DISABLE KT. 

GET FIRST FREE LOCATION 
SIZE OF FREE SPACE BELOW 28lC. 
FREE SPACE LOCATION EQUAL TO EXPD? 
BR IF YES 

SAVE ADDRESS IN ERROR 
NO HIGH ADDRESS 
SAVE EXPD FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL NENORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32U BLOCKS) 

; CONVERT BLOCKS TO UORDS 
;NAKE IT DOUBLE PRECISION 

ALINE 4K BOUNDARY 

SAVE HIGH ORDER 

SAVE LOU ORDER 

SETUP PAR6 NAPPING REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOU ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORNAT 

ABOVE 28K LOCATION EQUAL EXPD? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 
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3502 


020736 


010137 
010337 


002204 






NOV 


3503 


020742 


002176 






NOV 


3504 


020746 


011437 


C02200 






NOV 


3505 


020752 


000421 






32S: 


BK 


3506 


020754 


062701 
OOSSOO 
062704 


000002 




ADO 


3507 


020760 








ADC 


3508 


020762 


000002 
160000 






ADO 


3509 


020766 


020427 






CHP 


3510 


020772 


103755 








BLO 


3511 


020774 


162704 


020000 






SUB 


3512 


021000 


062737 


000200 


172354 




ADD 


3513 


021006 


023737 


172354 


003100 




CMP 


3514 


021014 


101744 








BLOS 


3515 


021016 


004737 


020244 




50S: 


JSR 


3516 


021022 
021024 


000241 








CLC 


3517 


000403 








BR 


3518 
3'j19 


021026 


004737 


020244 




55$: 


JSR 


021032 


000261 






60S: 


SEC 


3520 


021034 


000207 






RTS 


3521 















B 8 

13:43 PACE 62-1 



R1 ,ERRL0 

R3,EXPD 

(R4).RECV 

50S 

#2.R1 

RO 

f2.R4 

R4 .#160000 
30i 

#20000,R4 
#200,a«KIPAR6 
a#KIPAR6.KTFL6 
30S 

PC.KTOFF 
60S 

PCKTOFF 
PC 



SAVE LOW ORDER IN ERROR 
SAVE EXPO FOR ERROR REPORT 
SAVE RECV FOR ERROR RE°ORr 

UPDATE NON PAR6 ADDRESS 
MAKE IT DOUBLE PRECISION ADD 
UPDATE PAR FORMAT ADDRESS 
END OF PAR6 MAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28K. 
END OF MEMORY? 
BR IF NO 

TURN OFF MEMORY MAPPING 
SET FAILURE 

TURN OFF MEMORY MAPPING 
SET SUCCESS 



C 8 



C2TUYA0 TU80 FRONT END PRT C 
REGSAV - SAVE R1-RS ON STACK 

3523 
3524 
3525 
5526 
5527 
3528 
35?9 
3530 
3551 
3532 
3533 
3534 
3535 
3536 
5537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 

3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 

3558 
3559 



021036 
021056 
021036 
021040 
021042 
021044 
021046 
021 050 
021052 
021056 
021060 
021062 
021064 
C21066 
021070 
021072 
021072 
021074 
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.S8TTL REGSAV - SAVE R1-RS ON STACK 

♦ 

ROUTINE TO 

SAVE R1 THROUGH R5 ON THE STACK 

CALLING SEQUENCE: 

JSR RS, REGSAV 

THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE. AT THE END OP THE CALLING ROUTTNE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS. 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



SEQ 93 



104422 
010446 
010346 
010246 
010146 
010546 

016605 000012 
004736 
012601 
012602 
012603 
012604 
01260S 

104422 
000207 



REGSAV: 



BREAK 

TRAP 

HOV 

NOV 

NOV 

NOV 

NOV 

NOV 

JSR 

NOV 

NOV 

NOV 

NOV 

NOV 

BREAK 

TRAP 

RTS 



CSBRK 

R4,-(SP) 

R3.-(SP) 

R2.-(SP) 

R1.-(SP> 

R5.-(SP) 

10.(SP).R5 

PC,a(SP)* 

(SP)*,R1 

{SP)*.R2 

(SP)*,R3 

(SP)*.R4 

(SP>*,R5 

CSBRK 
PC 



;LOOK FOR CNTL C 



;LOOK FOR CNTL C 



0 8 
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SEQ 94 



3561 
5562 
3563 
3S64 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3575 
3574 
3575 
3576 
5577 
3578 
5579 
5580 
3581 
3582 



5585 

3584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
3592 
3595 



021076 
021076 
021102 
02 1102 
021104 
021106 
021110 

811 114 
021116 
021120 
021122 
021122 
021122 



02115? 
021134 



104445 
000406 
021152 
000022 

mm 

000000 
000577 



105567 

013700 021132 
000207 



.S8TTL GETPAT • GET 8 BIT PATTERN FROM OPERATOR 

♦ 

ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: 

NONE • 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 
CALLING SEQUENCE: 

JSR PC, GETPAT 



GETPAT:: 
1$: 



10000S: 



SAVREG :SAVE THE GENERAL REGISTERS 

GHANID DATASC,PAT0AT,O,377,0,377,NO 

TRAP CSGNAN 

BR 10000S 

.WORD PATDAT 

.WORD TSCODE 

.WORD DATASC 

.WORD 377 

.WORD TSLOLIN 

.UORD TSHILIN 



6NC0NPLETE U 
BCC 1$ 
MOV PATDAT, RO 
RTS PC 



.•RETRY IF ERROR 

:DATA PATTERN FROM OPERATOR 
:RETURN TO CALLER 



LOCAL DATA AREA 



000000 
105 



116 



PATDAT: .WORD 0 .-TEMPORARY STORAGE FOR DATA 

124 DATASC: .ASCIZ 'ENTER DATA PATTERN' 
.EVEN 



E 8 
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SEO 95 



3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
5603 
3604 
3605 
3606 
3607 
3608 
3609 
36^0 
3611 



3612 
3613 



36H 

3615 
3616 
3617 
3618 



3619 
3620 
3621 
3622 
3623 
3624 
3625 



021160 

021160 
021164 
021166 
021170 
021172 
021174 
021174 
021176 
021202 
021206 
021210 
021212 
021216 
021220 
021220 
021222 
021224 
021226 
021230 
021232 
021234 
021236 
021240 
021240 
021240 
021242 
021246 
021250 
021252 
021252 
021256 
021262 
021264 
021266 
021272 
021274 
021276 
021344 
021351 



010002 
010203 
005713 
00U12 

012346 
012746 
012746 
010600 
104417 
062706 
000764 

104443 
000406 
021400 
000042 
021351 
U7777 
000000 
177777 



103352 
013700 
020001 
101411 

012746 
012746 
010600 
104417 
062706 
000735 
000207 
045 
045 
105 



.SBTTL GETSEL • ISSUE KENU AND GET OPERATOR RESPONSE 



ROUTINE TO ISSUE A NENli AND GET 
THE OPERATOR'S RESPONSE. 
INPUTS: 

ADDRESS OF ASCIZ STRING OF MENU 
NAXINUN ALLOWABLE OPERATOR RESPONSE 



RO 
R1 

OUTPUTS: 
RO 



NUflBER OF THE OPERATOR'S SELECTION 



GETSEL:: 



1$. 
2$: 



021344 
000002 



000006 



3$: 



10001$: 



SAVREG 
NOV 
NOV 
TST 
BEQ 
PRINTF 
NOV 
NOV 
NOV 
NOV 
TRAP 
ADD 
BR 

GNANID 

TRAP 

BR 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



021400 



021276 
000001 



000004 



116 
116 
156 



021400 000000 



5S: 

045 NEPERk 
045 SEMS:. 
164 NC *C! 

HEW 



R0,R2 
R2.R3 
(R3> 
3S 

#SELASC.(R3)* 
(R3)*,-(SP) 
jrSELASC,-(SP) 
f2.-(SP> 
SP,RO 
CSPNTF 
#6,SP 
2% 

HENASC ,HENRES,D,-1 .0«-1 «N0 

CSGHAN 

10001$ 

NENRES 

T$CODE 

NENASC 

-1 

T$LOLin 
T$HILIII 



SAVE GENERAL REGISTERS 
SAVE THE NENU ADDRESS 
START OF MENU STRING 
END OF ASCII ? 

BRANCH IF ALL LINES DISPLAYED 
DISPLAY THE NFNU 



INCOMPLETE 1$ ;RETRY IF ERROR 

;GET THE OPERATOR'S REPLY 
; COMPARE TO NAXINUN ALLOWED 
;BRANCH IF OK 
.•DISPLAY ERROR MESSAGE 



BCC 1$ 

NOV NENRES. RO 

CMP R0,R1 

BLOS 5$ 

PRINTF fMENERR 

MOV «MENERR,-(SP) 

MOV #1,-(SP) 

MOV SP^RO 

TRAP C$PNTF 

ADD »4«SP 

BR 1$ ; RETRY 

RTS PC ; RETURN TO CALLER 

.ASCIZ 'XNXA Menu Selection Too Large **•* 

ASCIZ 'XNXT' 

")CIZ 'Enter Menu Selection: * 
/EN 

.WORD 0 



F 8 
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SEO 96 



3627 
5628 
3629 
3630 
3651 
3632 
3633 
56W 
363S 
3636 
3637 
3638 
3639 
36A0 
36A1 
36A2 
36A3 
36A4 
3645 
3646 
3647 
3648 

3649 021402 
^50 021402 
021406 
021406 



3651 



021410 

021' 



3653 021412 
021412 
021416 
021422 
021424 
021426 

3654 021432 

3655 021434 
3656 

3657 021436 
3658 



.SBTTL CHKHAN - CHECK MANUAL INTERVENTION LEGALITY 

♦ 

ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
INPUT: 

NONE. 

OUTPUT: 



CARRY 0 

SIDE EFFECTS: 



MANUAL INTERVENTION NOT AlLOUeO 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 



CHKMAN: 



104450 
105411 

012746 021436 
012746 000001 
010600 
104417 

062706 000004 

000241 

000207 



SAVREG 
MANUAL 

TRAP C$MANI 
BCOMPLETE 1$ 
BCS 1$ 
PRINTF fNOHAN 



045 



116 



045 



1$: 

NOMAN. 



NOV 
NOV 
NOV 

TRAP 
ADD 

CLC 
RTS 

.ASCIZ 
.even 



«NONAN,-(SP) 

#1.-(SP) 
SP-RO 
C$PNTF 
#4.SP 

PC 



:SAVE THE REGISTERS 

:SEE IF MANUAL INTERVENTION OK 

.•BRANCH IF ALLOWED 

;PRINT THE WARNING MESSAGE 



; CLEAR CARRY FOR ERROR 
.•RETURN 



'INIA *** Manual Intervention not Allowed - Test Aborted 
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3660 
3661 
3662 
3663 
3664 

3665 
3666 
5667 
3668 
3669 
3670 
3671 
5672 

3674 
5675 
3676 
3677 
3678 



021532 
021532 
021534 
021540 
021546 
021552 
021560 
021564 
021572 
021574 
021 S76 
021602 
021606 
021612 
021616 
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.SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACF 



SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 



; GET 1ST FREE ADDRESS... 

;...A.1ID WORD COUNT. 

: GEf NUMBER OF UNITS 

; TAKE MM 7 WORDS PER UNIT 









ENVIRN: 


HENORY 


RO 


104451 






TRAP 


CtPfEH 


010037 


003072 






MOV 


RO^FRbE 


062 rjr 


OOOOOf 






Ann 


(r6),fresiz 


011037 


003074 






MOV 


162737 


000004 


003074 




SUB 


f4«FRESIZ 


013702 


002012 






MOV 


LSUNIT.R2 


162737 


000007 


003074 


10S: 


SUB 


f7,FRESIZ 


005302 






DEC 


R2 


001373 








BNE 


10$ 


013700 


003072 






MOV 


FREE.RO 


063700 


003074 






ADD 


FRESIZ«RO 


162700 
010037 


000002 






SUB 


f2«R0 


003076 






MOV 


RO. FREEH I 


000207 








RTS 


PC 



GET FIRST FREE ADDRESS 

POINT TO LAST FREE ADDRESS 

BACKUP 1 WORD 

STORE LAST FREE ADDRESS 

RETURN 
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3680 
3681 
3682 
3683 
3684 
^685 
3686 

568^ 021620 
3688 021620 
5689 021624 

3690 021630 

3691 021636 

3692 021640 

3693 021644 

3694 021652 

3695 021656 

3696 021660 

3697 021666 

3698 021674 

3699 021700 

3700 0P1702 

3701 021706 

3702 021714 

3703 021716 
3/04 021722 

3705 021726 

3706 021730 

3707 021734 
3708 

3709 021736 

3710 021742 
3711 

3712 021 74i 
3713 

3714 021750 
3729 021752 
021752 
3/30 021752 
3731 021762 
171? 



003100 
003102 
002120 

000004 
021736 
177572 

0021 2C 
000177 
000004 

172340 
077406 

000200 
002000 

177600 



021744 



000004 



.SBTTL KTINIT - SETUP KT11 NEWMY MANAGEMENT REGISTERS 
ROUTINE TO INIT KT-11 



001577 
000004 



003100 
003100 



177740 IS: 



005037 
005037 
023727 
10U44 
013700 
012737 
005737 
000240 
013737 
042737 
010037 
005000 
012701 
012761 
010021 
062700 
020027 
001367 
012741 
000405 

012716 
000002 

010037 

000207 



^7?777 \77777 ^77777 



KTINIT: 



2S: 

6S: 
9S: 



CLR 

CLR 

CMP 

BLOS 

MOV 

MOV 

TST 

NOP 

MOV 

BIC 

MOV 

CLR 

MOV 

MOV 

NOV 

ADD 

CMP 

BNE 

MOV 

BR 

MOV 

RTI 

MOV 



LSPROT:: 



RTS 

6GNPR0T 



KTFLG 
KTENABLE 
L$HIME.#1577 
9S 

MERRVECRO 
#2$«a«ERRVEC 

a#SRO 

LSKIME. KTFLG 
#177.KTfLG 
RO,a#ERRVEC 
RO 

#KIPAR0,R1 

#77406, -40(R1> 

R0-(R1>* 

#260.R0 

RO.f^OOO 

1$ 

#1 77600,- <R1) 
98 

f6$.(SP) 



RO,a#ERRVEC 



.UORD -1. -1. -1, -1 
ENOPROT 



INIT >28K MEMORY FLAG 
INIT TEST >28K FLAG 
GOT ENOUGH MEMORY 028K)? 
NO. 

SAVE OLD ERR VEC PTR. 
SET ERR VEC PTR. 
GOT KT11? 

(TRAP IF NO). 
YES. SET KT ^LAG. 

RESTORE OLD ERR VEC PTR. 

RO s AR DATA. 

R1 s KI REGS PTR. 

SET DESCRIPTOR REG. 

SET KIPAR REG. 

BUMP AR DATA BY "4K". 

AT "I/O**? 

NO 

YES. SET XTPAR7 rOR I/O. 



; SET UP RETURN 

: RTI TO NEXT LOCATION 

: RESTORE OLD ERR VEC PTR. 



;N0 DEVICE PROTECTION REQUIRED. 



I 8 



5752 
5753 



C2TUYA0 TU80 FRMT END PRT C 
INITIMLIZE SECTION 



3^34 
3735 
3756 
3737 
3738 
3739 
37A0 
37A1 
3742 
3745 
5744 
5745 
5746 

5747 021762 
021762 

3748 021762 

3749 021762 

3750 021770 
3^51 021774 

022000 
022004 
022004 
022010 
3754 022012 
022012 
022014 
022022 
022024 

5758 022030 

5759 022052 

3760 022036 

3761 022040 

3762 022044 

5763 022046 

5764 022054 

5765 022C56 
022056 
022060 

3766 022062 
022062 
022066 
022070 
022070 

3763 022072 
022072 
022076 

3769 022100 



5767 



3770 



3771 
1771, 



f 




005037 
005037 
005037 

012700 
104447 

103023 
023737 
103073 
005737 
100475 
015701 
006501 
0C5761 
001521 
052761 
001063 

104452 
000450 

012700 
104447 

103055 

012700 
104447 

103404 

012700 
104447 

103054 



104455 
005037 
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.SBTTL IMITIALIZE SECTION 



SEO 99 



THE INITIALIZE SECTION CONTAINS THE CODING ^HAT IS PERFORMED 
AT THE BEGINNING OF EACH PASS. 

IF "START" OR 'RESTART". SET QUICK-PASS FLAG AND BUS-INIT. 
IF "CONTINUE", NOTHING IS REQUIRED. 



INSERT TEMPORARY JUNP TO ODT 



005672 
003106 
003102 
002246 

000036 



002150 
003060 
002150 
003130 
040000 



000055 



000040 



000037 



002146 



LSINIT:: 
40S: 



BGNINIT 



002012 



003130 



1$: 



2$: 



NOV 
CLR 
CLR 
CLR 

READEF 
MOV 
TRAP 

BNCOMPLETE 1$ 
BCC 
CMP 
BHIS 
TST 
BMl 
MOV 
ASL 
TST 
BIEO 
BIT 
BNE 
EXIT 
TRAP 
.WORD 
READEF 
MOV 
TRAP 



fEPRTI ,EPRTSU 

SIFLAG 
KTENABLE 
RAMSIZ 

#EF. CONTINUE 
fEF.CONTINUE.RO 
CSREFG 



;SET UP PRIMARY MESSAGE FOR REPLACEMENT 

.CLEAR "SOFT INIT" FLAG 

: CLEAR TEST ABOVE 28K FLAG 

.•CLEAR RAM SIZE FOR RAMERR ROUTINE 



U 

UNITN.LSUNIT 
4$ 

DUFLG 
NXTU 
UNITN^RI 
R1 

ERTABL(RI) 
SETU 

fBITU«ERTABL(R1 
NXTU 
INIT 
CSEXIT 
LI 0030'. 
fEF.NEU 
fEF.NEU^RO 
CSREFG 
BNCOMPLETE NXTU 
BCC NXTU 
READEF fEF. START 
MOV fEF. START, RO 
TRAP CSREFG 
BCOHPLETE 2S 
BCS 2S 
READEF fEF. RESTART 
NOV fEF.RESTART.RO 
TRAP CSREFG 
BNCONPLETE 3U 
BCC 31S 



:UNIT IN RANGE? 
:RR IF NO. 
.•DROPPED UNIT? 
:BR IF YES 



) .-DROPPED? 

;D0 NOTHING IF 'tONTINUE". 



.•TAKE NEXT UNIT IF NOT NEW PASS. 



002162 



BRESET 

TRAP 

CLR 



CSRESET 
TSICNT 



;1ST PASS, BUS-INIT... 
;BUS RESET. 

.•NUMBER OF TESTS RUN IN PASS 



C2TUYA0 TU60 FRONT END PRT C 
INITIALIZE SkCTION 



J 8 
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3775 
3776 
3777 
3778 
5779 
3780 
3781 
y,S2 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
|795 

379^ 

3798 
3799 
3800 
3801 
3802 
3803 

3804 
5805 
3806 
3807 
3808 
5809 
3810 

3Pn 

^8\S 

^SU 
58'« 



5819 



02i 
Q2i 



1?0 
124 



022126 
022132 
022136 
022142 
022146 
022H6 
022154 
022160 
0:21 64 
022170 
022172 
022176 
022200 
022202 
022206 



022212 
022212 
022220 
022224 
022224 
022226 
022232 

m 

022250 
022252 
022252 
022254 
02?25o 
022256 
02?264 
022266 
022272 
0222?i> 
022271, 
022276 
022302 



0?r304 
022504 
022306 
022310 

022310 
022510 
02251 A 
022516 
022316 
022320 
022'2A 
022530 
022552 



005037 
000406 

012746 
012746 
000137 
005037 

012737 
004737 
004737 
012700 
005020 
020027 
103774 
000404 
005037 
000137 



012737 
005037 

1044 
0052_ 
023737 
103;23 
012737 
000401 

104444 
000240 

023727 
101752 
005737 
001747 

104421 
032700 
001343 



104424 
000741 



013700 
104442 

103342 
005037 
005237 
012001 
010137 



002170 



000340 
022146 
065446 
003332 

^77777 
021532 
021620 
003130 

003330 



002152 
022256 



^77777 
002166 



002150 
002150 

177777 



002012 
002166 

000100 



002150 



003060 
002166 

002154 



002152 



002150 

002012 
003060 

000001 



19$: 
20i: 



30$: 



31$: 



4$: 

NEUPAS: 
NXTU: 



CLR 
BR 

fN)V 
HCV 

CLR 

rav 

JSR 
JSR 

mv 

CLR 

cw> 

BLO 
BR 

CLR 



11$: 
PASRPT: 



10$: 
SETU: 



FATFLG 
19$ 

*340.-(SP) 
f20$,-(SP) 
O.ODT 
SKIPT 

f-1 ,QVP 
PCENVIRN 
PCKTINIT 
«ERTABL«RO 

(RO)* 

RO.«ERTABE 

30i 

4$ 

QVP 

PASRPT 



MOV 


»-1,UNITN 


CLR 


DEVCNT 


BREAK 




TRAP 


C$BRK 


INC 


UNITN 


CMP 


UNITN.L$UNIT 


BLO 


SETU 


NOV 


#-1 ,OUFLG 


BR 


11$ 


DOCLN 




TRAP 


C$DCLN 


NOP 




CMP 


L$UNIT,#1 


BLOS 


NEUPAS 


TST 


OEVCNT 


BEQ 


NEUPAS 


RFLAGS 




TRAP 


C$RFLA 


BIT 


fISR.RO 


BNE 


NEUPAS 


DORPT 




TRAP 


C$ORPT 


BR 


NEUPAS 



GPHARO UNITN^RO 

NOV UNITN^RO 

TRAP C$6PHR0 
BNCOMPLETE NXTU 

BCC NXTU 

CLR 0UFL6 

INC OEVCNT 

NOV (R0}>,R1 

NOV R1.CSRA0DR 



.•RESET FLAG TO ZERO 'TATAL ERRORS" 
;8R. IF THE FLAG IS NOT SET 
;(n6 DEBUGGER ETC.) 

.•RETURN TO DEBUGGER 
;;aaENTER THE DEBUGGER 
.•CLEAR THE SUBTEST "SKIPPER" 

QUICK VERIFY... 
;SET ENVIRONNENT. 
.•INITIALIZE KT NEMORY MANAGEMENT 

.•CLEAR THE ERROR TABLE 



;G0 REPORT THE STATUS 



:INIT UNIT NUMBER.,. 

; CLEAR COUNT OF DEVICES RUNNING 



;...AND SET NEXT UNIT NUMBER. 



.ABORT. NO MORE UNITS. 



HGU MANY UNITS SELECTED? 
BR IF ONLY 1 
ARE ANY STILL RUNNING? 
BR IF NO 



.•SHOULD UE PRINT STATISTICS 
.•BR IF NO 



:GET UNIT N P-TABLE POINTER. 

:BR IF UNIT NOT AVAILABLE. 

.'CLEAR 'CROPPED" FLAG. 

;GET 1ST REGISTER ADDRESS. 

.•ADDRESS 0* REGISTERS OF UNIT UNDER TEST 



C2TUYA0 ru80 FRCWT END PRT C 
INITIALIZE SECTION 
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3325 022336 
5626 022340 

3827 022342 

3828 022346 

5829 022352 

5830 022356 
'83^ 

3852 022560 

5833 

3854 

5855 

5856 

5857 

5858 

5859 

3840 022560 

5841 022564 

5842 022566 
5845 022574 
584A 022400 
5845 022406 

3846 022410 
022410 

3847 022412 

3848 022416 

3849 022420 
022420 
022424 
022430 
022434 
022436 
022440 

5850 022444 

5851 022444 

5852 022450 
5a55 022454 

5854 022456 

5855 022462 

5856 022466 
3857 022470 

5858 022474 

5859 022502 
5860 

3861 
5862 

5865 022502 
022502 
022506 

5864 022510 
022510 
022510 

3865 

5866 022512 
3867 



012001 
CI 1002 
010257 
010^57 
012721 
010221 



002160 
002156 
017066 



IS: 



NOV 
NOV 
NOV 
NOV 
NOV 
NOV 



TST 
BEQ 



(R0)*,R1 

(R0)«R2 

R2,1PRI 

R1,IVEC 

«INTR.(R1>« 

R2,(R1)» 



QVP 
5S 



GET VECTOR ADDRESS. 

GET INTERRUPT PRIORITY 

SET INTERRUPT PRIORITY. 

SET INTERRUPT VECTOR POINTER. 

...VECTOR... 

...AND PRIORITY. 



;1ST PASS ?? 

:N0, SKIP THE PASS 1 STUFF. 



015701 


002150 






NOV 


006501 








ASt 


052761 


100000 


003130 




BIS 


005057 
023727 


005232 






CLR 


002012 


000001 




fNP 


101416 








BLOS 
RFLAGS 


104421 








TRAP 


032700 


001000 






BIT 


0014 1? 








BEQ 








PRINTF 


015746 


002150 






NOV 


012746 


C22512 






NOV 


012746 


000002 






NOV 


010600 
104417 








MOV 








TRAP 


062706 


000006 




10$: 


ADD 


005057 


003062 






CLR 


015701 


002154 






NOV 


010102 








NOV 


062702 


000000 






ADD 


004737 


017274 






JSR 


105005 








BCC 


010157 


003062 






NOV 


012737 


177777 


003060 




NOV 






2%: 





1ST PASS, CH£CK THAT DEVICE ADDRESSES ARE VALID, AND 
THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 

UNITN.RI 
R1 

«6IT15,ERTABL(R1) :SAY DEVICE RUNNING 



EXTA 
L$UNIT««1 
10$ 

RO 

C$RFLA 

«PNT,RO 

10$ 

#PUNIT,UNITN 

UNITN.-(SP) 

#PUNIT,-(SP) 

#2,-(SP) 

SP,RO 

CSPNTF 

f6,SP 

NODEV 

CSRADDR,R1 

R1,R2 

«TSSR,R2 

PCXNXN 

2$ 

R1 .NOOEV 
#-1,DUFL6 



.•CLEAR ERROR EXTENSION FLAG. 
:ARE WE TESTING NULTIPLE UNITS? 
* BR I F NO 

•YES — GET OPERATOR FLAGS. 

.•SHOULD WE PRINT UNIT #? 
;BR IF NOT. 
:PRINT THE UNIT » 



ADDRESS OF FIRST REGISTER 

START OF REGISTERS 

ADDRESS OF TSSR REGISTER 

TEST BOTH CONTROLLER REGISTERS. 

...AND BR IF ALL OK. 

FLAG DEVICE AS NON-EXISTENT 

DROP THIS UNIT. 



FINALLY, SET CPU PRIORITY AND WE'RE DONE. 



012700 OOOOOC 
104441 



104411 
045 



LI 0030; 



SETPRI #PRI00 
NOV #PRIOO,RO 
TRAP CSSPRI 
ENDINIT 

TRAP C$INIT 



;ENABLE INTERRUPTS. 



116 



045 PUNIT: .ASCI2 /XHlHU* 
.EVEN 



TESTING UNIT XD2U 



L 8 



CZTUYAO TU80 FRONT END PRT C 
ADO AND DROP UNITS SECTIONS 

3869 
3870 
3871 
3872 
3873 
3874 
3875 

3876 022560 
022560 

3877 022560 010001 
3678 022562 006301 

3879 02256A 052761 100000 

3880 022572 042761 040000 

3881 022600 
022600 010046 
022602 012746 022626 
022606 012746 000002 
022612 010600 
022614 104417 
022616 062706 00U006 

3882 022622 
022622 000167 
022624 00C026 

3883 022626 045 116 
3884 

3885 

3886 022654 
022654 

022654 104452 

3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 

3898 022656 
022656 

3899 022656 012737 

3900 02P664 010001 

3901 022666 006301 

3902 022670 052761 140000 
5903 022676 000240 000240 

3904 022704 
022704 010046 
022706 012746 022732 
022712 012746 000002 
022716 010600 
022720 104417 
022722 062706 000006 

3905 022726 
022726 000167 
022730 000030 
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SEO 102 



.SBTTL AOO AND DROP UNITS SECTIONS 



THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TI«1E, 
OR (8) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



LSAU:: 



003130 
003130 



045 1$: 



L10031 : 



BGNAU 

nov 

ASL 
BIS 
BIC 

PRINTF 

nov 
nov 
nov 
nov 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 

.ASCI2 

.EVEN 

ENDAU 

TRAP 



RO.RI ; GET UNIT TO 8^ ADDED (RO) 

R1 ; HAKE IT A WORD INDEX 

#100000,ERTABL(R1) : SET THE "ACTIVE" BIT 

#40000,£RTABL(R1) : CLEAR THE 'DROPPED" BIT 

#1$«R0 

RO.-(SP) 

#li,-(SP) 

#2,-<SP) 

SP^RO 

CSPNTF 

#6.SP 

AU 

jsjnp 

LI 0031 -2-. 

/XNXA UNIT XDXA ADDED/ 



UNUSED. 



CSAU 



^THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE. NAN. 
•DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
COnnAND, OTHERWISE REHAIN INACTIVE. THE 'DISPLAY" COnMAND 
WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE 

UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



\77777 003060 



003130 
000240 



LSOU: : 



B6NDU 

nov «-1 ,0UFLG 

nov R0,R1 

ASL R1 

BIS «140000,ERTABL(R1) 
240,240,240 

PRINTF «U,RO 

nov RO.-(SP) 

nov #ii,-(SP) 

nov *2,-(SP) 

nov sp,RO 

TRAP CSPNTF 

ADD «6,SP 

EXIT DU 

.WORD jfjnp, ^ 

.WORD L10032-2-. 



: SAY DROPPED 



C2TUYAC TU80 FRONT END PRT C 
ADO AND DROP UNI1S SECTIONS 



N 8 

MACRO Ml 200 29-MAR-83 13:43 PAGE 71-1 



3906 022732 
3907 

3908 022762 
022762 
022762 



3909 
3910 
3911 
5912 



022764 



022764 

3913 022764 

3914 022770 

3915 022774 

3916 022776 
022776 
023002 
023004 
023010 
023012 
023016 
023020 
023024 

3917 023026 

3918 023030 

3919 023032 

3920 023036 

3921 023036 
023036 
023036 



045 



104453 



012703 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



116 



000550 
017120 



000372 
002116 

Mim 

177756 
020152 



045 IS: 

LI 0032: 



.ASCIZ /ZNXA UNIT XDtA DROPPED/ 

.EVEN 

ENDDU 



TRAP 



C$DU 



AUTO-DROP CODE SECTION. 



LSAUTO:: 
lOf: 



20$: 
LI 0033: 



B6NAUT0 

'mov 

JSR 
BCS 
DELAY 

nov 

.WORD 
NOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
DEC 
BNE 
JSR 

ENDAUTO 



#360., R3 
PC.tfAITF 
20i 
250. 

#250., (PC)* 

0 

L$DLy,<PC)* 

0 

-6(PC) 
.-4 

-22(PC) 
.-20 
R3 
10$ 

PCCKDROP 



.'ENOUGH TIME FOR 2400' REEL TO REWIND 
;UAIT FOR SSR TO SET 
;LEAVE UHEN SSR IS SET 
;IIAIT FOR .25 SECONDS 



:BUMP COUNTER DOWN 

;KEEP GOING 

;TRY AND DROP UNIT 

: UNUSED. 



TRAP CSAUTO 



N 8 



CZTUYAO TIJ80 FRONT END PRT C MACRO N1200 
CLEAN-UP AND REPORT COOING SECTIONS 



3925 
5924 
3925 
3926 
3927 
3928 
3929 

3930 023040 
023040 

3931 023040 

3932 023044 
3933 

3934 

3935 023046 

3936 023054 

3937 023060 

3938 023060 
023060 
023060 

3939 
3940 
3941 
3942 

3943 02306*; 
023062 

3944 023062 
023062 
023066 
023072 
023074 
023076 

3945 023102 

3946 023104 

3947 023106 

3948 023110 

3949 023114 

3950 023116 

3951 0231 

3952 0231 2 > 

3953 02312-^ 

3954 023130 

3955 023132 

3956 023136 
023136 
023140 
023142 
023146 
023152 
023154 
023156 

3957 023162 

3958 023164 

3959 023170 

3960 023172 
023172 
023174 
023200 
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.S8TTL CLEAN-UP AND REPORT CODING SECTIONS 



SEQ 104 



THE CLEANUP CODING SECTIO'. tONTAINS THE CODING THAT IS 
EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 
USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



005737 003060 
100405 



012765 000000 000000 
004737 017120 



104412 



BGNCLN 
LSCLEAN: : 

TST 
BNI 



012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
005003 
011402 
001467 
100066 
032702 
001015 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010346 
012746 
012746 



023324 
000001 



000004 
003130 

040000 
170000 



023361 
000003 



000010 
160000 



023431 
000002 



1$: 

L 10034 : 



NOV 

JSR 

'NDCLN 



DUFLG 
1$ 



«0,TSSR(R5) 
PCUAITF 



.•"DROPPED" FLAG IS SET ON... 
;...AND GROSS CONTROLLER FAULT... 
DON'T TRY TO KCT CLEANUP CODE. 

:D0 SOFT INIT 



TRAP CSCLEAN 



THE REPORT CODING SECTION CONTAINS THE 

'Y>RINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 



LSRPT: 



IS: 



2$: 



BGNRPT 

PRINTS 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

NOV 

NOV 

NOV 

CLR 

NOV 

BEQ 

BPL 

BIT 

BNE 

SIC 

PRINTS 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

BR 

CNP 

BNE 

PRINTS 
NOV 
NOV 
NOV 



#DEVSUN 

#DEVSUH,-(SP> 

#1,-(SP) 

SP,R0 

CSPNTS 

#4,SP 

R2.-(SP) 

R3.-<SP) 

R4,-(SP) 

#ERTA6L,R4 

R3 

(R4).R2 

4$ 

4S 

#6ITU.R2 
2$ 

#*C7777,R2 

#DEV0NL,R3,R2 

R2,-(SP) 

R3,-<SP) 

#DEVONL,-(SP) 

#3.-(SP) 

SP.RO 

CSPNTS 

#10, SP 

4$ 

R2, #160000 
3S 

#DEVNXR.R3 
R3,-(SP) 
#DEVNXR.-(SP) 
#2,-(SP) 



GET START OF ERROR TABLE. 
CLEAR UNIT NUNBER 
GET ERROR TABLE ENTRY ft TEST IT. 
ZERO IF UNIT NOT RUN 

WAS UNIT DROPPED? 
BR IF YES 

GET ERROR COUNT FIELD 
PRINT 



WAS UNIT NON-EXISTENT? 
BR IF NO 



C2TUYA0 ru60 FRONT END PRT C MACRO M1200 
CLEAN>UP AND REPORT CODING SECTIONS 



3f: 



B 9 
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023204 


010600 






023206 


104416 






023210 


062706 


000006 


5961 


02 32 V. 


000431 




5962 


025216 


020227 


160001 


5963 


023222 


001012 




396^ 


023224 








023224 


010346 






023226 


012746 


023513 




023232 


012746 


000002 




023236 


010600 






023240 


104416 






023242 


062706 


000006 


5965 


023246 


000414 




3966 


023250 


042702 


1 70000 


3967 


023254 








023254 


010246 






023256 


010346 






023260 


012746 


023574 




023264 


012746 


000003 




023270 


010600 






023272 


104416 






023274 


0627C6 


000010 


3968 


023300 


062704 


00000? 


3969 


023304 


005203 


003330 


3970 


023306 


020427 


3971 


023312 


103701 




397? 


023314 


012604 




3973 


023316 


012603 




3974 


023320 


012602 




3975 


023322 








023322 








023322 


104425 




3976 


023324 


045 


116 


3977 


C23361 


045 


101 


3978 


023431 


045 


101 


3979 


023513 


045 


101 


3980 


023574 


045 


101 


3981 









30$: 



4$: 



L10035: 

045 DEVSUM: 

040 DEVONL: 

040 DEVNXR: 

040 DEVNRD: 

040 DEVORO: 



MOV 

TRAP 

ADD 

BR 

CNP 

BNE 

PRINTS 
NOV 

nov 

NOV 

NOV 

TRAP 

ADO 

BR 

BIC 

PRINTS 

NOV 

NOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

ADD 

INC 

CMP 

BLO 

NOV 

NOV 

NOV 

ENDRPT 

TRAP 

.ASCiZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



SP.RO 
C$PNTS 
#6,SP 
4$ 

R2.#160001 
30i 

#DEVNRD,R3 

R3,-(SP) 

«DEVNRD,-(SP) 

«,-(SP) 

SP,R0 

CSPNTS 

f6.SP 

4$ 

#*C7777.R2 

#DEVDR0,R3,R2 

R?,-(SP) 

R3,-(SP) 

«DEVDR0«-(SP) 

#3,-(SP) 

SP.RO 

C$PNTS 

#10. SP 

#2.R4 

R3 

R4.«ERTABE 
1$ 

(SP)*,R4 
(SP)*.R3 
(SP)«^,R2 



WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 



: UNUSED. 



C$RPT 

/XNXADEVICE STATUS SUMMARY :XN/ 
/XA UNIT XD3XA ONLINE, 
/XA UNIT XD3XA 
/XA UNIT X03XA 
/XA UNIT XD3SA 



ERRORS r XDXN/ 
DROPPED. NON-EXISTENT REGISTERXN/ 
DROPPED. NOT READY AT STARTUPSN/ 
DROPPED « ERRORS = XDXN/ 



C 9 



CZTUVAO TU80 FRONT END PRT C 
TEST 1: £PACE RECORDS 



4004 
4005 
4006 
4007 
400b 
4009 
40*. 0 
4011 
401? 
4013 
4014 
4015 
4016 
4017 
4015 
4019 
4020 
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.SBTTL TEST 1: SPACE RECORDS 

♦ 

THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
RECORDS REVERSE POSITION COWMNDS OPERATE PROPERLY WHEN SPAflNG 
OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE NARKS 
IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 
SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 
OF THE SUBTESTS. THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 
OF VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH 
RECORP INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER 
EACH SPACING OPERATION. THE TAPE POSITION IS VERIFIED BY READING 
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION D/JA WITH 
THE EXPECTFD RESULT. 

THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS 



SEQ 106 



4021 
4022 
4023 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
403« 
4036 
4037 
4038 
4039 
4040 



4041 
4042 
4043 
4044 
4045 
4046 
«iu47 
4048 
4049 
4050 
4051 
4052 
4053 



023644 
02^44 
023644 
023650 
023654 
023662 
023666 
023672 
023676 



023704 
023704 
023704 
023704 
023706 
023712 
023716 
023722 
023726 



023734 
023740 
023742 
023742 
023746 
023750 
023754 
023756 
023762 
023764 



005037 
005037 
012737 
004737 
012700 
004737 
012737 



002170 
003100 
005764 
020244 
031452 
017406 
000002 



002146 
002164 



104402 

004737 031470 

005037 030260 

004737 031562 

004737 031624 

012737 176750 



004737 016644 
103427 

012727 000250 
OOOQOQ 

013727 002116 

^lllf ^'^^'^ 

005367 177756 



030262 



BGNTST 

CLR 
CLR 
NOV 
JSR 
NOV 
JSR 
NOV 



FATFLG 
KTFLG 

»EPRT2,EPRTSW 

PCKTOFF 

#TST25ID,R0 

PC.TSTSETUP 

*2,L00PCNT 



T1 : : 

.CLEAR FATAL ERROR* FLAG 
;HOLD OFF KT11 

.•SECONDARY ERROR MESSAGE 
.•DON'T NEED LOTS OF MEMORY 
.•ASCII MESSAGE TO IDENTIFY TEST 
.DO INITIAL TEST SETUP 
.-PERFORM 2 ITERATIONS 



TEST 1. SUBTEST 1 



VERIFIES THAT A SPACE RECORDS FORWARD COMNAND WITH 
THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
THE VOLUME CHECK (VCK) FLAG IS SET. 



T25LCOP; 



66NSUB 



JSR 
CLR 
JSR 
JSR 
NOV 



PC.T25REST 
T25CNT 
PC.T2SRT2 
PC-T25RT3 
#65000.. T25DLY 



;»»»»»» BEGIN SUBTEST »»»»»» 
T1.1: 

TRAP C$BSUB 

SET CONNAND PACKET 
CLEAR THE RECORD COUNTER AREA 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMNAND PACKET 
SET UP LOOP COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



^S: JSR PC.SOFINIT 
BCS 10$ 
DELAY 250 



;D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
.DELAY IF REQUIRED 

NOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 



#250. (PC)* 

LSDLY.CPO* 
0 

-6(PC) 
.-4 

-22 (PC) 



C2TUYA0 TU80 FRONT END PRT C 
TEST 1: SPACE RECORDS 



4054 
4055 
4056 
4060 
4061 



4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4074 
4075 



4076 
4077 
4078 
4079 
4080 
4081 
4085 



4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4099 



4100 

4101 
4102 
4105 
4104 



023770 
023772 
023776 
024000 
024004 
024010 
024010 
024012 
024014 
024016 
024020 



024024 
024030 
024032 
024036 
024040 
024040 
02^042 
024044 
024046 



024050 
024054 
024060 
024062 
024062 
024064 
024066 
024070 
024072 



024076 
024102 
024104 
024106 
024112 
024112 
024114 
024116 
024120 
024122 
024122 



001367 

005337 030262 
001356 

004737 020100 
016501 000000 

104455 
000145 
003550 
011666 , 
012704 030100 
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DEC T25DLY 

BNE SS 

JSR PC.FATCHK 

MOV TSSR(R5),R1 

ERRDF ERRNO.SFIERR.SFINSG 



S£Q 1U7 



10$: 



my «T25PACKET,R4 



BNE .-20 

;DEC DELAY COUNTER 

;BR. IF LOOP IS REQUIRED 

;INC AND THtiCK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

: FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 191 
.WORD SFIERR 
.WORD SFIMSG 

.•SUBROUTINE NEEDS PACKET ADDRESS 



004737 
103407 
004737 
010001 

104456 
000146 
004754 
011666 



016501 
032701 
001406 

104455 
000147 
030264 
016344 
004737 



010332 
020100 



****»*****••••••••*••*•••***•••••••***********< ******************* 

WRITE CHARACTERISTICS COfWAND (CALL TO URTCHR) 
*********************«******************************************** 



000000 
000100 



020152 



JSR PC.URTCHR 

BCS ui 

JSR PC.FATCHK 

NOV RO.RI 

ERRHRD ERRNCWRTNSG. SFIMSG 



CHECK FOR DRIVE OFF-LINE 

NOV TSSR(R5)«R1 

BIT «0FL*R1 

BEQ 15S 

ERRDF ERRN0,T210FL,£XPREC 



JSft PC«CKDROP 



: ISSUE WRITE CHARACTERISTICS 

;6R. IF CONNAND ISSUED OK 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

:SAVE CONTENTS OF TSSR 

;URITE CHARACTERISTISC FAILED 

TRAP CSERHRO 
.WORD 102 
.WORD WRTNSG 
.WORD SFINSG 



.•READ THE TSSR 

.•CHECK FOR DRIVE OFF LINE 

:BR« IF DRIVE IS ON LINE (GOOD) 

.-"DRIVE IS OFF-LINE" (BAD) 

TRAP 
.WORD 
.WORD 
.WORD 

;TRY AND DROP UNIT 



CSERDF 
103 
T210FL 
EXPREC 



ISSUE REWIND CONHANO TO SELECTED TAPE DRIVE 



004737 010434 

103407 

010001 

004737 020100 

104456 
000150 
031257 
011700 

104406 



\5%: 



30S: 



JSR 
BCS 
NOV 
JSR 

ERRHRD 



CKLOOP 



PC.NEWIND 
30i 
R0,R1 
PC.FATCHK 

ERRN0.T2SRWN,PKTSSR 



.'CALL TAPE REWIND CONNAND 
;BR. IF NO PR06LEN 
;SAVE TSSR 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
104 

T2SRWN 
PKTSSR 



TRAP CSCLP1 



•READ NESSAGF BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



C2TUYA0 ToaO FRONT END PRT C 
TEST 1: SPACE RECORDS 



4105 

4106 0241 2A 

4107 024150 

4108 024132 

4109 024136 

4110 024140 

4111 024142 

4115 024146 
024146 
0241 SO 
024152 
024154 

4116 024156 
024156 

4117 024160 

4118 024164 
4119 

4120 
4121 
4122 
4123 

4124 024172 

4125 024200 

4126 024204 

4127 024210 

4128 024216 

4129 024224 

4130 024230 

4131 024234 

4132 024240 

4133 024244 

4134 024246 

4135 024250 

4136 024254 

4137 024256 
4141 

4142 
4143 

4144 024262 
024262 
024264 




4148 o; 

4149 0243 

4150 024! 
4151 
4152 
415? 
4154 
4155 

4156 024, 

4157 02431 



013701 030126 
010102 

052702 000002 

020102 

001406 

004737 020100 

104456 
000151 
030447 
016344 

104406 

012703 000400 
013737 003072 



012737 140005 

012704 030230 

010337 030236 

013777 030260 

062737 000001 

010465 177776 

004737 017120 

016501 000000 

012702 000200 
020102 
001411 

032701 000004 
001014 

004737 020100 



104457 
000152 
005011 
011700 

104406 
005203 

022703 001000 

001340 

000415 
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SEQ 108 



40$: 



NOV 
NOV 

BIS 
CNP 
BEQ 

JSR 

ERRHRO 



CKLOOP 



T25BFRt6«R1 

R1,R2 

fBiri«R2 

R1.R2 

40i 

PCFATCHIC 

ERRNO,T25BOT,EXPREC 



030232 



030230 



156654 
030260 



NOV 
NOV 



#256., R3 
FREE,T25RB 



.-PICK UP KSTO 

.SET UP EXPECTED 

:SET BOT BIT IM EXPECTED 

;DOES EXP * REC'O 

;BR« IF EQUAL (OK) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.W090 

:LOOP IF SELECTED 

TRAP 

.•RECORD SIZE 

.'STARTING WRITE BUFFER ADDRESS 



CSERHRD 
105 

T25B0T 
EXPREC 

CSCLPI 



WRITE DATA.ACK.CVC«1 CONHAND 



****************************************************************** 



NOV «1 40005. T25PK3 

NOV «T2SPK3.R4 

65S: NOV R3.T25S2 

NOV T25CNT.aFREE 

ADD f1.T25CNT 

NOV R4.TSDB(R5> 

JSR PC.WAITF 

NOV TSSR(R5).R1 

NOV #SSR.R2 

CNP R1.R2 

BEQ 75$ 

BIT «BIT2.R1 

BNE 120$ 

JSR PC«FATCHK 



ERRSOFT ERRNO«URTERR.PKTSSR 



.•WRITE DATA.ACK.CVC^I CQNNAND 

.-SET UP R4 WITH PACKET ADDRESS 

.SET UP RECORD SIZE IN PACKET 

.•LOAD UP RECORD COUNTER IN WRT BUFFER 

:GET READY FOR NEXT RECORD 

.•ISSUE CONNANO 

.•WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

.SET UP EXPECTED 

.-ARE THEY EQUAL 

•BR IF OK 

•ChIcK FOR TAPE STATUS ALERT 
.•BR. IF TSA IS SET (SUSPECT IS EOT) 
.•INC AND CHECK FOR NORE THAN 25 ERRORS 
.•SOFT ERROR GENERATED BECAUSE THE 
.WRITE CONNANO IS NOT BEING CHECKED 
.HERE. IT WAS CHECKED IN CZTUXA 
:TSSR INCORRECT AFTER WRITE DATA 



75$: CKLOOP 

INC 
CNP 



120$: 



.LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERSOFT 
106 

WRTERR 
PKTSSR 



fil2..R3 



BR 



65$ 
125$ 



:6UNP RECORD SIZE 
;END OF RECORD YET 
:BR. IF NORE RECORDS TO WRITE 
.ENOUGH RECORDS 



TRAP C$CLP1 



013701 030126 
010102 



;READ NESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

NOV T25BFRt6.R1 .'QUICK CHECK FOR EOT SET 

NOV R1.R2 .SET UP EXPECTED 



CZTUYAO TUSO FRONT END PRT 
TEST 1: SPACE RECORDS 
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SEO 109 



4158 
4159 
4160 
4161 
4165 



4166 
4167 
4168 
4169 
4170 
4171 
4172 
417 




024340 
. 024344 

4174 024346 

4175 024350 

4179 024354 
024354 
024356 
024360 
024362 

4180 024364 
024364 



4181 



02 

024366 
4182 024370 
41 as 024376 

4184 024400 

4185 024404 



052702 000001 

020102 

001406 

004737 020100 

104455 
000153 
030603 
016344 



002402 
004737 



BIS f8IT0,R2 

CMP R1.R2 

BEQ 12$$ 

JSR PCFATCHK 

ERRDF ERRN0,T25NET,EXPREC 



125$: 



:SET THE EOT BIT XSTO 

:IS THE EOT BIT SET IN XSTO 

;BR. IF SET (6000) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
.•DEVICE FATAL NOT EOT FOUND ETC. 

TRAP C$EROF 
.yORD 107 
.WORD T25NET 
.WORD EXPREC 



004737 010434 

103407 

010001 

004737 020100 

104456 
000154 
031257 
011700 

104406 



104403 

023727 002170 



ISSUE REUIND CONNAND TO SELECTED TAPE DRIVE 



130$: 



000031 



020152 



999$: 



JSR 
BCS 

mv 

JSR 

ERRHRD 



CKLOOP 
ENDSUB 



CUP 

BLT 
JSR 



PC. REWIND 
136$ 
RO.RI 
PC.FATCHK 

ERRNO.T25RtM.PKTSSR 



;CALL TAPE REWIND COFVfAND 
;BR. !F NO PROBLEM 
:SAVE TSSR 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
108 

T25RWN 
PKTSSR 



TRAP C$CLP1 



;»»»»»» ^"'^^^^^^^ »»»»»» 



FATFL6.f25. 
999$ 

PC.CKDROP 



TRAP 

;IS ERROR COUNT AT 25 
.•BR. IF LESS THAN 25 
.-TRY TO DROP THE UNIT 



C$ESUB 



C2TUYA0 TU80 FRONT END PRT C 
TEST 1: SPACE RECORDS 



4187 
4188 
4189 
4190 
4191 
4192 
4193 



•.194 
<.195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4208 
4209 



4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4222 
4223 



4224 

4226 
4227 
4228 
4229 
4230 
4231 
4232 
4236 



4237 



024404 
024404 
024404 
024406 
024412 
024416 



02442? 
024426 
024430 
024434 
024436 
024436 
02'«440 
024442 
024444 
0244«*6 



0244S2 
024456 
024460 
024464 
024466 
C24466 
024470 
024472 
024474 



02'.476 
024502 
024504 
024506 
024512 
024512 
024514 
024516 
024520 
024522 
024522 



104402 
004737 
004737 
004737 



004737 
103407 
0C4737 
010001 

104455 
000155 
003550 
011666 
012704 



004737 
103407 
004737 
010001 

104456 
000156 
004754 
011666 



004737 
103407 
01 0001 
004737 

104456 
000157 
031257 
011700 

104406 
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TEST 1, SUBTEST 2 



SEQ 110 



VERIFIES THAT SPACE RECORDS FORVARD CAN SPACE ONE 
RECORD OFF 6QT AND CAUSES BOT STATUS TO BE CCEAREi). 



031470 
031562 
031624 



016644 
020100 



BGNSUB 



JSR 
JSR 
JSR 



PC.T25REST 

PC.T25RT2 

PC,T25RT3 



;»»»»»» BEGIN SUBTEST »»»»»'» 
T1.2: 

TRAP C$6SU6 

:SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 



: ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT CLEAR IF ERROR 



030100 



010332 
020100 



JSR 
BCS 
JSR 
MOV 
ERRDF 



10$: NOV 



PC-SOFIMIT 
lOi 

PCFATCHK 
RO.RI 

ERRNO,SFIERR,SFINSG 



«T25PACKET,RA 



:D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

:INC AND CHECK FOR MORE THAN 2S ERRORS 

.•CONTENTS OF TSSR REGISTER 

.•FATAL ERROR TSSR VAS NOT OK 

TRAP CSERDF 
.WORD 109 
.WORD SFIERR 
.WORD SFIMSG 

: SUBROUTINE NEEDS PACKET ADDRESS 



;URITE CHARACTERISTICS CQMNANO (CALL TO URTCHR) 



JSR PC.URTCNR 

BCS 15i 

JSR PC.FATCNK 

MOV R0.R1 

ERRHRO ERRNO.URTNSCSFINSG 



ISSUE WRITE CHARACTERISTICS 

BR. IF COMMAND ISSUED OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 

SAVE CONTENTS OF TSSR 

WRITE CHARACTERISTISC FAILED 

TRAP CSERHRD 
.WORD 110 
.WORD WRTMSG 
.WORD SFIMSG 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



010434 
020100 



15$: 



30$: 



JSR 
BCS 
MOV 
JSR 
ERRHRD 



CKLOOP 



PC.REUINO 
30i 
R0.R1 
PC.FATCHK 

ERRN0.T25RWN.PKTSSR 



;CALl TAPE REWIND COMMAND 
;BR. IF NO PROBLEM 
.•SAVE TSSR 

;INC AND CHECK FOR MORE THAN 2S ERRORS 
.•REWIND NOT ACCEPTED 



;L00P IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
111 

T25RWN 
PKTSSR 



TRAP C$CLP1 



C2TUYA0 ru80 FRONT ENI> PUT C 
TEST 1: SPACE RECORDS 



4^38 
4259 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4252 
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SCO 111 



4253 



4254 
425: 
4256 
4257 
4258 
4259 
4260 
'261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4274 



4275 

4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
'•284 
4285 
4286 
428? 
4291 



024566 
024574 
024600 
624604 
024610 
024614 
024620 
024622 
024624 
024630 
024632 
024636 
024636 
024640 
024642 
024644 
024646 
024646 
024650 



024650 
024654 
024656 
024662 
024664 
C24666 
024672 
024672 
024674 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001411 
032701 
001006 
004737 

104456 
000161 
030367 
016344 

104406 



.•READ KSSA6E BUFFER EKTENDEO STATUS REGISTER ZERO (XSTO) 





01 3f U 1 






01 01 OP 




024532 


052702 


000002 


024536 


020102 




024540 


001406 




024542 


004737 


020100 


024546 






024546 


104456 




024550 


000160 




024552 


030447 




024554 


016344 




024556 






024556 


104406 




024560 


012737 


000001 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRNRD 



T25BFRf6,Ml 
RKR2 



f6!TnR2 
R1.R2 
40i 

PC.FATCHK 

ERRN0.T2SB0T,EXPREC 



40S: 



140010 
030230 
177776 
017120 
000000 
000200 



000004 
020100 



030232 



030230 



CKLOOP 

NOV #000001, T2SR6 



;PICK UP XSTO 

;SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

;DOES EXP « RiEC*D 

:BRe IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 112 
.WORD T25B0T 
.WORD EXPREC 

.-LOOP IF SELECTED 

TRAP C$CLP1 
:NUNBER OF RECORDS TO SPACE OVER 



SPACE FORWARD. ACK.CVCsl CONNANO 



6S$: 



NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
BIT 



75$: 
120$: 



JSR 
ERRHRD 



CKLOOP 



f140010.T2SPK3 

#T25PK3,R4 

R4,TSDB(RS) 

PC.WAITF 

TSSR(RS),R1 

fSSR.R2 

PC.FATCHK 

ERRNO.T25UDE.EXPREC 



;SPACE F0RWARD,AC<,CVCs1 CONNAND 

;SET UP R4 WITH PACKET ADDRESS 

.ISSUE CONNANO 

.•WAIT FOR SSR TO SET 

;6ET TSSR CONTENTS 

;SET UP EXPECTED 

:ARE THEY EQUAL 

:CH§CK FOR TAPE STATUS ALERT 
:BR. IF TSA IS SET (SUSPECT IS EOT) 
;INC AND CHECK FOR NORE THAN 2S ERRORS 
:TSSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 

.WORD 

.WORD 

WORD 

:LOOP IF SELECTED 

TRAP 



lis 
T25WDE 
EXPREC 



CiCLPI 



;READ NESSA6E BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 030126 
010102 

042702 000002 

020102 

001406 

004737 020100 

104456 
000162 



NOV T25BFRt6.R1 

NOV R1 .R2 

BIC f8!T1.R2 

CNP R1.R2 

BEQ 12H 

JSR PC.FATCHK 

ERRHRD ERRN0,T2SBNC .EXPREC 



.-QUICK CHECK FOR BOT SET 
; SET UP EXPECTED 
.•CLEAR THE BOT BIT (XSTO) 
:IS THE EOT BIT SET IN XSTO 
;BR. IF SET (GOOD) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
:BOT NOT CLEARED AFTER SPACE FRQN BOT 

TRAP CiERHRO 
.WORD 114 



, C2TUVA0 TU80 FRONT END PftT C 
TEST 1: SPACE RECORDS 



024676 
024700 
4702 
4706 





4308 024760 

4312 024764 
024764 
024766 
024770 
02 

4313 02 
0< 

4314 

4315 

4316 025006 

4317 025010 

4318 025012 

4322 025016 
025016 
025020 
025022 
025024 

4323 025026 
025026 
0250 

4324 0250 

4325 025036 

4326 02:>040 

4327 025044 



030742 
016344 

004737 031624 
CI 2737 000401 



012737 140001 

013737 003072 

012704 030230 

010465 177776 

004737 017120 

016501 000000 

012702 000200 
020102 
001406 

004737 020100 

104456 
000163 
005104 
011700 



104406 
017701 
012702 
020102 
001406 
004737 

104456 
000164 
030657 
016344 



104403 
02i727 
002402 
004737 



156070 
000001 



020100 



002170 
020152 
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SEQ 112 



030236 



030230 
030232 



125$: 



JSR 

nov 



PC.T25RT3 
f2§7., T25S2 



; CLEAN UP PACKET 
;SET THE CORRECT SIZE UP 



.WORD 
.WORD 



T25eNC 
EXPREC 



DATA COPLAND IN PLACE 



000031 



MOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



190$: CKLOOP 

NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



200$: ENDSUB 



CNP 

BLT 
JSR 



#1 40001, T25PK3 

fREE,T25RB 

#T25PK3,R4 

R4,TSDB(R5) 

PC.UAITF 

TSSR(R5),R1 

#SSR.R2 

R1.R2 

196$ 

PC«FATCHK 

ERRNO.RDERR.PKTSSR 



READ DATA CONNAND IN PLACE 

READ BUFFER ADDRESS TO PACKET 

R4 s POINTER TO PACKET 

ISSUE CONNAND 

VAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEr EQUAL 

BR. IF OK ESP. FUNCTION REJECT 
INC AND CHECK FOR NORE THAN 25 ERRORS 
TSSR INCORRECT AFTER READ DATA CND 



aFREE.RI 
#1.R2 
R1.R2 
206$ 

PC.FATCHK 

ERiiN0,T25UNG,EXPREC 



C$ERHRD 
115 
RDERR 
PKTSSR 

C$CLP1 



999$: 



FATrL6,f25, 
999$ 

PC.CKDROP 



TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

GET FIRST WORD FRON BUFFER 

SET UP EXPECTED 

WAS RECORD NUNBERED 1 

BR, IF CORRECT RECORD 

INC AND CHECK FOR NORE THAN 25 ERRORS 

SHOULD HAVE BEEN RECORD NUNBE5* 1 

TRAP 
.WORD 
.WORD 
WORD 

;»»»»»» END SUBTEST »»»»»» 
L10040: 

TRAP 

:IS ERROR COUNT AT £5 
:BR, IF LESS THAN 25 
;TRV TO DROP THE UNIT 



C$ERHRD 
116 

T2SWNG 
EXPREC 



C$ESUB 



C2TUYA0 TU80 FRONT END PRT C 
TEST 1: SPACE RECORDS 



A 329 
4330 
A331 
4332 
4333 
4334 
4335 
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TEST U SUBTEST 3 



4356 
4357 
4558 
4559 
4540 
4541 
4542 
4545 
4544 
4545 
4546 
4550 
4351 



455 
455 
4354 



4356 
4357 
4358 
4559 
4560 
4364 
4365 



4366 

4367 
4368 
4369 
4370 
4571 
4572 
4373 
4374 
4575 
4379 



025044 
025044 
025044 
025046 
025052 
025056 



025062 
025066 
0P5070 
025074 
025076 
025076 
025100 
025102 
025104 
025106 



025112 
025116 
025120 
025124 
0<f5126 
025126 
025130 
025132 
025134 
025136 
C;;5136 



025140 
025144 
025146 
025150 
025154 
025154 
025156 
025160 
025162 



VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK 
OVER THE FIRST RECORD ON TAPE. 



104402 

004737 031470 

004737 031562 

004737 031624 



004737 016644 
103407 

004737 020100 
010001 

104455 
000165 
003550 
011666 

012704 030100 



004737 010332 
103407 

004737 020100 
010001 

104456 
000166 
004754 
011666 

104406 



004737 010434 

103407 

010001 

004737 020100 

104456 
000167 
031257 
011700 



B6NSUB 



JSR 
JSR 
JSR 



PC.T25REST 

PC,T25RT2 

PC.T25RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T1.3: 

TRAP CtaSUB 

.-SET COMNANO PACKET 

:SET UP OTHER COWMM) PACKET 

;SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



20S: 



JSR PC.SOFINIT 

BCS 20i 

JSR PCFATCHK 

NOV RO.RI 

ERRDF ERRNO,SFIERR,SFINSG 



NOV «T25PACKET.R4 



:bO INITIALIZE ON CONTROLLER 
:6R IF INIT WAS OK 

;1.^C AND CHECK FOR NORC THAN 25 ERRORS 

.-CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
WORD 

.SUBROUTINE NEEDS PACKET 'ADDRESS 



CSERDF 

117 

SFItRR 
SFIKSG 



WRITE CHARACTERISTICS COWUND (CALL TO WRTCHR) 



2SS: 



JSR 
BCS 
JSft 
NOV 
ERRHRD 



CKLOOP 



Hi 



WRTCHR 



PC«FATCHK 
R0.R1 

ERRN0,WRTNS6,SFINS6 



.•ISSUE WRITE CHARACTERISTICS 

:BR. IF COWAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.SAVE CONTENTS OF TSSR 

.-WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 



CSERHRD 
118 

WRTMS6 
SFIHSG 



CSCLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



JSR PC.REWIND 

BCS 30i 

MOV R0.R1 

JSR PC.FATCHK 

ERRHRD ERRNO.T25RWN,PKTSSR 



.CALL TAPE REWIND COMMAND 
:BR. IF NO PROBLEM 
:SAVE TSSR 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.-REWIND NOT ACCEPTED 

TRAP CSERHRD 
.WORD 119 
.WORD T25RWN 
.WORD PKTSSR 



C2TUVA0 TU80 FRONT CNO PRT C 
TEST 1: SPACE RECORDS 



4380 025164 
02S164 

4381 
4382 
4383 
.384 

J m]n 

4388 025174 

4389 025200 



4390 
4391 
4395 



4396 



025; 



!02 
04 
10 
10 
12 
14 
16 
^0 
10 



43'.' 
4398 
4399 
4400 
4401 
4402 

4403 025222 

4404 025226 

4405 025232 

4406 025234 
440/ 025240 

4411 025244 
025244 
025246 
025250 
025252 

4412 025254 
025254 

4413 025256 
4414 

4415 
4416 
4417 
4418 

4419 025264 

4420 025272 
44<?1 025276 
4422 025302 
442? 025506 

4424 025312 

4425 025316 
4A26 025320 
44?7 025322 
4^31 025326 

0*^5326 
025330 
025332 



104406 



013701 030126 
010102 

g»70| 000002: 
001406 

004737 020100 

104456 
000170 
030447 
016344 

104406 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000172 
030367 
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30$: CKLOOP ;LOOP IF SCLlCTtt 

THAT CSCLPI 

•READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

HDV T25BFR«6,R1 ;PI« UP KSTO 

mv R1,R2 ; SET UP EXPECTED 

BIS #6ITnR2 ;SET BOT BIT IN EXPECTED 

CMP R1.R2 ;DOES EXP s REC'D 

BEQ 40$ :BR, IF EQUAL (OK) 

JSR PCFATCHK :INC AND CHECK FOR MORE THAN 25 ERRORS 

ERRHRD ERRNC,T2560T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 

TRAP CtERHRD 
.WORD 120 
.WORD T25R0T 
.WORD EXPREC 

40S: CKLOOP ;100P IF SELECTED 

TRAP CSCLPI 

•ISSUE SPACE RECORDS CONNAND - VALUE IN R3 SETS NUMBER OF RECORDS 
;BIT 15 SETS DIRECTION - 0»FORWARD I^REVERSE 



SEO 114 



01 2703 000001 

004737 010140 
103410 

016501 000000 

004737 020100 

104456 
000171 
030367 
011746 

104406 

012737 000001 



50$: 



140410 
030230 
177776 
017120 
000000 
000200 



020100 



030232 



030230 



NOV #000001 .R3 

JSR PC.SPACE 

BCS 50$ 

MOV TSSR(R5)«R1 

JSR PC FATCHK 

ERRHRD ER^N0,T25UDE,SFFMS6 



CKLOOP 

MOV f1.T25RB 



.•NUMBER OF RECORDS TO SPACE FORWARD 
:CALL SPACE COMMAND 
.•CHECK FOR ERROR 
;6ET TSSR CONTENTS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.SPACE FORWARD FAILED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
121 

T25WOE 
SFFMSG 



TRAP C$CLP1 



;NUNBER OF RECORDS TO SPACE OVER 



SPACE REVERSE .ACKXVCsl CONNANO 



MOV «UM1Q,T2SPIC3 

MOV «T25PK|,R4 

6SS: MOV R4.TSDB(R5) 

JSR PC.UAITF 

MOV TSSR(RS).R1 

MOV «SSR.R2 

CMP R1.R2 

BEQ 75$ 

JSR PC.FATCHK 
ERRHRD ERRNO, T2SWDE ,PKTSSR 



.-SPACE REVERSE .ACK.CVCsl COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
.•ISSUE COMMAND 
;WAir FOR SSR TO SET 
.GET TSSR CONTENTS 
;SET UP EXPECTED 
:ARE THEY EQUAL 
;BR. IF OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

T««AP CSERHRD 
.WORD 122 
.WORD T25WDE 



CZTUYAO TU80 FRONT £N0 PRT C 
TEST 1: SPACE RECORDS 
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025334 

4432 02S336 
025336 

4433 025340 

4434 025344 
4455 

4436 
4437 
4438 
4439 

4440 025352 

4441 025360 

4442 025364 

4443 025370 

4444 025374 

4445 025400 

4446 025404 

4447 025410 

4448 025412 

4449 025414 
" 025420 

025420 
025422 
025424 

or 
o; 

0 
0 



4453 



44S4 



4455 
4456 
4457 
4458 
4459 _ 

4463 02545 
02545 
025454 
025456 
025460 

4464 025462 
025462 
025462 

4465 025464 

4466 025472 

4467 025474 

4468 025500 



011700 

104406 
012703 
C'ii737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000173 
005104 
011700 




104456 
000174 
030657 
016344 



104403 
023727 
002402 
004737 



000400 
003072 



140001 
030230 
030236 
177776 
017120 
000000 
000200 



020100 



155434 
000000 



020100 



030232 



030230 



75$: 
120$: 



CKLOOP 

NOV 
NOV 



.LOOP IF SELECTED 



#256.. R3 
FREE.T25RB 



.WORD 
TRAP 



.RECORD SIZE 

.STARTING READ BUFFER ADDRESS 



PRTfSR 
C$CLP1 



READ DATA.ACK,CVC»1 CONNAND 



002170 
020152 



NOV 
165S: NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
6EQ 
JSR 

ERRHRD 



170$: CKLOOP 

NOV 
NOV 

CNP 
BEQ 

JSR 

ERRHRD 



200$: ENDSUB 



000031 



#1 40001. T25PK3 

«T25PK3.R4 

R3.T25SZ 

R4.TSDB(R5) 

PC.WAITF 

TSSR(R5)«R1 

#SSR.R2 

R1,R2 

I7ds 

PCFATCHK 
ERRNCRDERR.PKTSSR 



BF REE. R1 
#0.R2 
R1.R2 
206$ 

PC.FATCHK 

ERRN0.T25WN6«EXPREC 



999$: 



CNP FATFL6.#25. 

BLT 999$ 

JSR PC.CKDROP 



.'READ DATA.ACK.CVCsl CONNAND 
:SET UP R4 WITH PACKET ADDRESS 
.SET UP RECORD SIZE IN PACKET 
.•ISSUE CONNAND 
:WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;8R. IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 123 
.WORD RDERR 
.kORD PKTSSR 

;LOOP IF SELECTED 

TRAP C$CLP1 
;GET FIRST WORD FRON BUFFER 
SET UP EXPECTED 
WAS RECORD NUMBERED 1 
BR. IF CORRECT RECORD 
INC AND CHECK FOR NORE THAN 25 ERRORS 
SHOULD HAVE BEEN RECORD NUNBER 1 

TRAP C$ERHRD 
.WORD 124 
.WORD T25WNG 
.WORD EXPREC 
;»»»»»» END SUBTEST »»»»»» 
LI 0041: 

TRAP C$ESUB 

:IS ERROR COUNT AT 25 
;BR. n LESS THAN 25 
;TRV TO DROP THE UNIT 



n 9 



C21UYA0 TU80 FRONT E^'0 PRT C 
TEST 1: SPACE RECORDS 



4A70 
4A71 
4472 
AA73 
AA74 
AA75 
AA76 
AA77 
AA78 



AA79 
AA80 
AA81 
AA82 
AA85 
AA8A 
AA85 
AA86 
AA87 
AAS8 
AA89 
AA90 
AA91 
AA92 



AA93 
AA9/. 
AA95 
AA96 
ASOO 



A501 
A502 
A503 
A 504 

A505 
A 506 
4507 
4508 
4509 
4510 
451A 
A515 



02SS00 
025500 
025500 
025502 
025506 
025*^12 
025516 
02552A 
025532 



0255A0 
0255AA 
025546 
025546 
025552 
025554 
025560 
025562 
025566 
025570 
025574 
025576 
025602 
025604 
025610 
025614 
025614 
025616 
025620 
025622 
025624 
025624 



025630 
025634 
025636 
025642 
025644 
025644 
025646 
025650 



104402 
004737 
004737 
004737 
013737 
162737 
013737 



004737 
103427 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
016501 
004737 

104455 
000175 
003550 
011666 



031470 
031562 
031624 
030260 
000002 
030260 



016644 

000250 

002116 

177772 

177756 

030262 

000000 
020100 
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TEST U SUBTEST 4 



SEO 116 



VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A 
MULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE. 
WHICH EVER IS LESS. 



030256 
030256 
030262 



BGNSUB 



JSR 
JSR 
JSR 
MOV 
SUB 
MOV 



PC,T25REST 
PC,T25RT2 
PCJ25RT3, , 
T25CNT,T25CN2 
#2-T25CN2^ 
T25CNT.T25DLY 



;»»»»»» BEGIN SUBTEST »»»»»» 
T1 4* 

TRAP CSBSUB 

;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
:HOLD NUMBER OF RECORDS 
;ACTUAL NUMBER OF RECORDS ON TAPE 
;SET UP REWIND DELAY COUNTER 



****************************************************************** 

ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
****************************************************************** 



lOS: 



JSR 
BCS 
DELAY 



PC.SOFINIT 

20i 

250 



012704 030100 



004737 010332 
103407 

004737 020100 
010001 

104456 
000176 
004754 



20S: 



DEC 
BNE 
NOV 
JSR 
ERRDF 



MOV 



T25DLY 
10$ 

TSSR<R5>,R1 
PC.FATCHK 

ERRNO.SFIERR.SFINSG 



#T25PACKET,R4 



;D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
;WAIT ABOUT .25 SECONDS 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 



;DEC 
;BR, 

;INC 



#250, (PC)* 

L$OLY,(PC)* 

0 

-6 (PC) 
.-4 

-22 (PC) 
.-20 



COUNTER 

IF MORE LOOPS REQUIRED 

.•CONTENTS OF TSSR REGISTER 
AND CHECK FOR MORE THAN 25 ERRORS 
; FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

.■SUBROUTINE NEEDS PACKET ADDRESS 



CSERDF 

125 

SFIERR 
SFIMSG 



««»♦♦*•*♦*♦♦*»♦**♦*♦♦**************♦♦•♦*******************•***•*♦• 

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

************************************************************** 



JSR PC.URTCHR 

BCS 2Si 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO.WRTNSG. SFIMSG 



; ISSUE WRITE CHARACTERISTICS 

;BR. IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;SAVE CONTENTS OF TSSR 
.•WRITE CHARACTERISTISC FAILED 

TRAP CSERHRD 
.WORD 126 
.WORD WRTMSG 



CZTUYAO TU80 FRONT CNO PRT C 
TEST 1: SPACE f^ECORDS 



A516 

A517 
4518 
45'i9 
4520 
4521 
4522 
4525 
4524 
4525 
4529 



4550 

4551 
4552 
4555 
4554 
4555 
4556 
4557 
4558 
4559 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4555 
4554 



025652 
025654 
025654 



025656 
025662 
025664 
025666 
025672 
025672 
025674 
025676 
025700 
025702 
025702 
025704 
025710 
025714 
025716 
025720 
025722 
025724 
025726 
025732 



4555 
4556 
4557 
4561 



025736 
025744 
025750 
025756 
025762 
025766 
025772 
025776 
026000 
026002 
026002 
026006 
026010 
026014 
026016 
026022 
026024 
026'"50 
026052 
026056 
026040 
026044 
026044 
026046 



011666 
104406 



004737 
105407 
010001 
004737 

104456 
000177 
031257 
011700 

104406 
015701 
012702 
020201 
003002 
010105 
000401 
010205 
162705 
010537 



012757 
012704 
013757 
010465 
004737 
016501 
012702 
020102 
001425 

012727 
000000 
013727 
000000 
005367 
001375 
005567 
001567 
005357 
001551 
004737 

104456 
000200 



010434 
020100 



030256 
177776 



000001 
030232 



140010 
030230 
030256 
177776 
017120 
000000 
000200 



000250 
002116 
177772 
177756 
030262 
020100 
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SCO 117* 



25S: 



CKLOCP 



.-LOOP IP SELECTED 



.WORD 
TRAP 



SFinSG 
CSCLP1 



ISSUE REWIND COWAND TO SELECTED TAPE DRIVE 



30$: 



46$: 
47$: 



JSR 
BCS 
NOV 
JSR 

ERRHRD 



CKLOOP 

NOV 

NOV 

CNP 

B6T 

NOV 

BR 

NOV 

SUB 

NOV 



PC.REUIND 
30i 
RO^RI 
PC.FATCHK 

ERRNO,T25RUN,PKTSSR 



CALL TAPE REWIND CONNAND 
BR, IF NO PROBLEN 

SAVE TSSR 

INC AND CHECK FOR NORE THAN 25 ERRORS 
REWIND NOT ACCEPTED 



T25CN2,R1 
#65534., R2 
R2,R1 
461 
R1.R3 
47i 
R2,R3 
#1,R3 
R3,T25RB 



TRAP 
.WORD 
.WORD 
.WORD 

;L00P IF SELECTED 

TRAP 

NUMBER OF RECORDS ON TAPE 
MAX IT CAN SPACE OVER 
WHICH VALUE CAN WE USE 
BR, IF # WRITTEN > 64K 
# WRITTEN CAN BE USED 
MOVE ON 
USE MAX NUMBER 
DON'T GO ALL THE WAY YET 
NUMBER OF RECORDS TO SPACE OVER 



C$ERHRD 

127 

T25RUN 
PKTSSR 

CtCLPI 



****************************************************************** 



SPACE F0RWARD,ACK,CVCs1 COMMAND 



****************************************************************** 



030230 
030262 65$: 
67$: 



NOV 
MOV 
MOV 
NOV 
JSR 
NOV 
MOV 
CMP 
BEQ 
DELAY 



#14001 0,T25PIC3 

#T25PIC3,R4 

T25CN2,T25DLY 

R4,TSDB(R5) 

PCWAITF 

TSSR(R5),R1 

#SSR,R2 

R1.R2 

75i 

250 



;SPACE F0RWARD,ACK,CVC-1 COMMAND 
:SET UP R4 WITH PACKET ADDRESS 
.•NUMBER OF RECORDS USED AS DELAY COUNTER 
; ISSUE COMMAND 
:WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
.•DELAY .25 SECONDS 



DEC 
BNE 
JSR 



T25DLY 
67$ 

PC.FATCHK 



ERRHRD ERRNO,T25WDE, PKTSSR 



BUMP DOWN COUNTER 
BR. IF NOTAT END OF 



MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 



#250. (PC)* 
0 

L$0LY.(PC)* 
0 

-6 (PC) 
.-4 

-22 (PC) 
.-20 



_ . . . DELAY 

INC AND CHECK FOR MORE THAN 25 ERRORS 
TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 128 



C2TUYA0 TU80 FRONT END PRT C 
TEST 1: SPACE RECORDS 
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4S62 

AS63 
4564 
4S6S 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
**5B^ 
4585 



4S86 

4587 
^588 
4589 
4590 
4591 
4592 
«,596 



4597 



4598 
4599 
4600 
4601 



026050 
026052 
026054 
026054 
026056 
026062 



026070 
026076 
026102 
026106 
026112 
026116 
026122 
026126 
026130 
026132 
026136 
026140 
026144 
026144 
026146 
026150 
026152 
026154 
026154 
026156 
0261 62 
026166 
026172 
026174 
026176 
026202 
026202 
026204 
026206 
026210 
026212 
026212 
026212 
026214 
026222 
0^6224 
026230 



030367 
011700 

104406 
012703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001411 
032701 
001006 
004737 

104456 
000201 
00510'. 
011700 

104406 
017701 
013702 
162702 
020102 
001406 
004737 

104456 
000202 
030657 
016344 



104403 
023727 
002402 
004737 



010000 
003072 



100001 
030230 
030236 
177776 
017120 
000000 
000200 



000004 
020100 



154710 
030256 
000001 



020100 



002170 
020152 



75$: 



030232 



030230 



CKLOOP 

HOV 
NOV 



«4096..R3 
FREE,T25RB 



READ DATA«ACK COWfAND 



NOV 
165S: NOV 
NOV 
NOV 
JSR 
NOV 
HOV 
CNP 
BEO 
BIT 
BNE 
JSR 

ERRHRD 



170$: CKLOOP 

NOV 
NOV 
SUB 
CNP 
BEQ 
JSR 
ERRNRD 



200$: ENDSU6 



000031 



999$: 



CNP 

BLT 

JSR 



#1 00001, T2SPK3 

#T25PK3,R4 

R3.T25SZ 

R4,T$0B(R5) 

PC.WAITF 

TSSR(RS),R1 

fSSR.R2 

R1,R2 

176$ 

#BIT2,R1 
170$ 

PCFATCHK 
ERRNO.RDERR.PKTSSR 



BFREE.RI 

T25CN2,R2 

#1.R2 

R1.R2 

200$ 

PC.FATCHK 

ERRNO,T25UN6,EXPREC 



FATFLG,#25. 
999$ 

PCCKDROP 



.WORD T25WDE 

.UGRO PKTSSR 

.-LOOP IF SELECTED 

TRAP C$CLP1 

*RFC0RD SIZE 

•STARTING READ BUFFER ADDRESS 



;READ DATA.ACK CONNAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

.'ISSUE CONNAND 

;UAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

;S£T UP EXPECTED 

;ARE THEY EQUAL 

*BR IF OK 

•CHECK FOR TAPE STATUS ALERT 
;IF SET ALL IS WELL 

;1NC AND CHECK FOR NORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

;GET FIRST WORD FRON BUFFER 
;SET UP EXPECTED 

.•SHOULD BE LAST RECORD 

;UAS RECORD NUNBERED R3 

:BR. IF CORRECT RECORD 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.•SHOULD HAVE BEEN RECURD NUNBER ' 

TRAP 
.UORD 
.WORD 
.WORD 

;»»»»»» END SUBTEST »»»»»» 
LI 0042: 

TRAP 

;IS ERROR COUNT AT 25 
.•BR. IF LESS THAN 25 
.-TRY TO DROP THE UNIT 



C$ERHRD 
129 
RDERR 
PKTSSR 

C$CLP1 



1 

C$ERHRD 

130 

T25UNG 
EXPREC 



C$ESUB 



IZTUYAO TU80 FRONT END PRT C 
TEST 1: SPACE RECORDS 



4604 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 



4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
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TEST 1. SUBTEST 5 



C 10 
PAGE 7V 



SEO 119 



VERIFIES TH/T SPACE RECORDS REVERSE CAN SPACE A 
MULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
MAXIMUM NUMBER OF RECORDS URITTEN ON THE TAPE 
WHICH EVER IS LtSS. 



026230 








BGNSUB 


026230 










026230 


104402 








026232 


004737 


031470 




JSR 


026236 


013737 


030260 


0302i>6 


MV 


026244 


004737 


031562 




JSR 


026250 


004737 


031624 


030262 


JSR 


026254 


013737 


030260 


NOV 



PC.T25REST 

T25CNT,T25CN2 

PC.T25RT2 

PC-T25RT3 

T25CNT,T25DLY 



;»»»»»» BEGIN SUBTEST »»»»»» 
T1.5: 

TRAP CS8SUB 

SET COMMAND PACKET 
SET UP RECORD COUNTER 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP REWIND DELAY COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



4626 
4627 
4628 
4629 
4633 



4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4646 
4647 



4648 



026262 
026266 
026270 
026270 
Cco274 
026276 
026302 
026304 
026310 
026312 
026316 
026320 
026324 
026326 
026332 
026336 
026336 
026340 
026342 
026344 
026346 



026352 
026356 
026360 
026364 
026366 
026366 
026370 
026372 
026374 
026376 



004737 
103427 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
CC1367 
005337 
001356 
016501 
004737 

104455 
000203 
003550 
011666 
012704 



004757 
103407 
004737 
L 10001 

104456 
000204 
004754 
011666 



016644 

000250 

002116 

177772 

177756 

030262 

000000 
020100 



030100 



010332 
020100 



lot: 



JSR 
BCS 
DELAY 



PCSOFINIT 

20( 

250 



20$: 



DEC 
BNE 
MOV 
JSR 
ERRDF 



MOV 



T25DLY 
10$ 

TSSR(R5),R1 
PCFATCHK 

ERRII0,SFIERR,SFIMS6 



«T2SPACKET,R4 



;00 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 
:WAIi ABOUT .25 SECONDS 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 



;DEC 
;BR, 



#250. (PC)* 
0 

L$DLY.<PC)* 
0 

-6<PC) 
.-4 

-22 (PC) 
.-20 



;INC 



COUNTER 

IF MORE LOOPS REQUIRED 

.•CONTENTS OF TSSR REGISTER 
AND CKECX FOR MORE THAN 25 ERRORS 
; FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

; SUBROUTINE NEEDS PACKET ADDRESS 



C$ERDF 
131 

SFIERR 
SFIMSG 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



25$: 



JSR 
BCS 
JSR 
MOV 
ERRHRD 



CKLOOP 



PC.WRTCHR 
25i 

PC.FATCHK 
RO.RI 

ER(iN0«WRTMSG«SFIMS6 



.-ISSUE WRITE CHARACTERISTICS 
;BR. IF COMMAND ISSUED OK 
;INC AND CHECK FOR MOR" THAN 2S ERRORS 
:SAVE CONTENTS OF TSSR 
; WRITE CHARACTERISTI' ^ 



;«r.O/' IF SELECTED 



FAILED 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
132 

WRTMSG 
SFIMSG 



CZTUYAO TU80 FRONT END PRT C 
TEST 1: SPACE RECORDS 
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SEO 120 



4649 
4650 
4651 
4652 
4655 
4654 
4655 
4656 
4657 
4661 



4662 

4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 
4677 



4678 

4679 
4680 
<.631 
4682 
/.683 
4684 
t685 
A 686 
4687 
4688 
46S9 
4690 
46"! 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 



026376 104406 



026400 
026404 
026406 
026410 
026414 
026414 
026416 
026«.20 
026422 
026424 
026424 



G26426 
026432 
026434 
026440 
026442 
026444 
026450 
026450 
026452 
026454 
026456 
026460 
026460 
026462 
026466 
026472 
026474 
026476 
026500 
026502 
026504 



026510 
026516 
026522 
026526 
026534 
026540 
026544 
026550 
026552 



104406 
013701 
012702 
020201 
003002 
010103 
000401 
010203 
010337 



012737 
012704 
010465 
013737 
004737 
016501 
012702 
020102 
001425 



TRAP CfCLPI 



004737 010434 

103407 

010001 

004737 020100 

104456 
000205 
031257 
011700 

104406 



013701 030126 
010102 

052702 000002 

020102 

001406 

004737 020100 

104456 
000206 
030447 
016344 



ISSUE REWIND COMNAND TO SELECTED TAPE DRIVE 



30$: 



JSR 
BCS 
NOV 
JSR 
ERRHRD 



CKLOOP 



PCxREUiND 
30i 
R0,R1 
PCFATCMK 

ERRIIO«T25RUN,PKTSSR 



.-CALL TAPE REUIND COfflAND 
;BR. IF NO PROBLEM 
.-SAVE TSSR 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;REVINO NOT ACCEPTED 



:LOOP IF SELECTED 



TRAP 
.WORD 
.UORO 
.WORD 

TRAP 



CSERHRO 
133 

T25RWN 
PKTSSR 

C$CLP1 



•READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



40$: 



030256 
177776 



030232 



140010 
030230 
U7776 
030256 
017120 
000000 
000200 



46$: 
47$: 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



CKLOOP 

NOV 

NOV 

CNP 

BGT 

NOV 

BR 

NOV 

NOV 



T25BFR*6,R1 

MM 

#Bni,R2 

R1.R2 

40$ 

PC.FATCHK 

ERRNO.T25BOT,EXPREC 



T25CN2,R1 

#65534. «R2 

R2.R1 

46i 

R1.R3 

47i 

R2,R3 

R3,T25R8 



030230 



030262 



SPACE FORUARD.ACK^CVCsl CONNAND 



;PICIC UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

:DOES EXP s REC'D 

;BR, IF EQUAL (OK) 

;IN{ and CHECK FOR NORE THAN 25 ERRORS 

:TAPE NOT AT BOT AFTER REUIND 

TRAP C$ERHRD 
.WORD 134 
.WORD T25BOT 
.UORD EXPREC 

;L00P IF SELECTED 

TRAP C$CLP1 
:NUNBER OF RECORDS ON TAPE 
;NAX IT CAN SPACE OVER 
:UHICH VALUE CAN WE USE 
;BR, IF f WRITTEN > 64K 
;» WRITTEN CAN BE USED 
;NOVE ON 
;USE NAX NUHBER 

:NUNBER OF RECORDS TO SPACE OVER 



NOV ri40010,T25PK3 .SPACE F0RUARD,ACK.CVCs1 CONNAND 

NOV fT25PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 

NOV R4JSDB(R5) : ISSUE CONNAND 

NOV T25CH2,T25DLY ;SET UP DELAY COUNTER 

48$: JSR PC.WAITF ;WAIT FOR SSR TO SET 

NOV TSSR(R5).R1 :GET TSSR CONTENTS 

NOV #SSR.R2 ;SET UP EXPECTED 

CNP RI.R^ ;ARE THEY EQUAL 

BEQ 50i ;BR, IF OK 



_ J 



C2TUYA0 TU80 FRONT END PAT C 
TEST 1- SPACE RECORDS 



02 
02 



4702 
4703 
4704 
4708 



^4 



4711 

471 

471 



4701 0a6SS4 
6554 
6560 
6562 
6566 
6570 
6574 
026576 
026602 
026604 
026610 
026612 
026616 
026616 
026620 
0266 
0266 

4709 0266 

4710 0266 
026636 
026640 
026642 

4714 026644 

4715 026646 

4716 026650 

4717 026654 
4718 

4719 
4720 
4721 
4722 

4723 026660 

4724 026666 

4725 026672 

4726 026676 

4727 026704 

4728 026710 

4729 026714 

4730 026720 

4731 026722 

4732 0?6724 
0P6724 
026730 
026732 
026736 
026740 
026744 
026746 
0267'^2 

4733 026754 

4754 026760 

4755 026762 
4759 026766 

026766 
Q2(>m 
026772 
02o7?U 



012727 
OC^ 



005367 
001375 
005367 
001367 
005337 
001351 
004737 

104456 
000207 
030367 
016344 
013701 
012702 
020201 
003002 
010103 
000401 
010203 
162703 
010337 



012737 
012704 
010465 
013737 
004737 
016501 
012702 
020102 
001425 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001351 
004737 

104456 
000210 
030367 
016344 



000250 
002116 
}77772 
177756 
030262 
020100 



030256 
}77776 



000001 
030232 



140410 030230 

030230 

177776 

030256 030262 
017120 
000000 
000200 



000250 
002116 
\77772 
177756 
030262 
020100 
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DELAY 2S0 



NOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 



DEC T250LY 

BNE 48S 

JSR PC.FATCHK 

ERRHRD ERRNO,T25UDE,EXPREC 



50$: 



55$: 
60$: 



NOV 

NOV 

CNP 

B6T 

NOV 

BR 

NOV 

SUB 

NOV 



T25CN2,R1 
«65534.,R2 
R2.R1 
55i 
R1.R3 
60i 
R2,R3 
#1.R3 
R3,T25RB 



;IIAIT .25 SECONDS 

*250.(PC)» 
0 

L$DLY,(PC)* 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 

;DEC THE DELAY COUNTER 

;BR, IF COUNTER HASN'T EXPIRED 

;1NC AND CHECK FOR HORE THAN 25 ERRORS 

;TSSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 
.WORD 135 
.WORD T25WDE 
UORD EXPREC 

.•NUMBER OF RECORDS ON TAPE 

;MAX IT CAN SPACE OVER 

;WHICH VALUE CAN WE USE 

;BR. IF « WRITTEN > 64< 

;» WRITTEN CAN BE USED 

;NOVE ON 

;USE NAX NUMBER 

;DON*T GO ALL THE WAY YET 

.•NUMBER OF RECORDS TO SPACE OVER 



SPACE REVERSE «ACK,CVC8l COMMAND 



70$: 



MOV 

MOV 
MOV 
MOV 
JSR 
NOV 
NOV 
CMP 
BEQ 
DELAY 



fU0410,T25PK3 

#T25PK3.R4 

R4.TSDB(R5) 

T2§CN2.T25DLY 

PC.WAITF 

TSSR(R5).R1 

#SSR.R2 

R1.R2 

7Si 

250 



.SPACE REVERSE, Ai'K.CVCsl COMMAND 
.SET UP R4 WITH PACKET ADDRESS 
.•ISSUE COMMAND 
.-SET UP CCUN'fe»? 
:WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
*BR IF OK 

•UAh ABOUT .25 SECONDS 

NOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 



DEC 
BNE 
JSR 



T25DLY 
70$ 

PC.FATCHK 



#250. (PC)* 

L$DLY.(PC)* 
0 

-6 (PC) 

-22 (PC) 
.-20 



ERRHRD ERRN0.T25WDE. EXPREC 



BUMP COUNTER DOWN 
BR. IF COUNTER HASN'T EXPIRED 
INC AND CHECK FOR NORE THAN 25 ERRORS 
TSSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 
.WORD 136 
.WORD T25WDE 
.WORD EXPREC 



CZTUVAO ru80 FRONT END PRT 
TEST 1: SPACE RECORDS 
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A 740 

4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4^49 
4750 
4751 
4752 
4755 
4754 
4755 
4756 
4757 

4758 
4759 
4760 
4761 
4765 



<,/66 

4767 
4768 
4769 
4/70 
4771 
4775 



4776 



4777 
4778 
4779 
4780 



026776 
026776 
027000 
027004 



027012 
027020 
027024 
027050 
027054 
027040 
027044 
027050 
027054 
027060 
027062 
027064 
027070 
027072 
0270.»6 
027076 
027100 
027102 
027104 
027106 
027106 
027110 
027114 
027120 
027122 
027124 
027130 
027130 
027132 
027134 
027136 
027140 
027140 
027140 
027142 
027150 
027152 
027156 



104406 

012703 010000 
013737 003072 



012737 
0^2704 
012700 
00475? 
010557 
010465 
004757 
0:6501 
012702 
020102 
001411 
052701 
001006 
004757 

104456 
000211 
005104 
016544 

104406 
017701 
012702 
020102 
001406 
004737 

104456 
000212 
051032 
016544 



104403 
025727 
002402 
004737 



10C001 
030250 
M7777 
020572 
030236 
177776 
017120 
000000 
000200 

000004 
020100 



155756 
000001 



020100 



002170 
0201 S2 



75S: 



050252 



050230 



CKLOOP 

NOV 
NOV 



#4096.. R5 
FREE,T25RB 



READ DATA«ACK COHMAMD 



HOV 
165$: HOV 
NOV 
JSR 

nov 
rav 

JSR 
NOV 
NOV 
CNP 
BEQ 
BIT 
BNE 
JSR 

ERRHRD 



170$: CKLOOP 

NOV 
NOV 

CNP 
BEQ 

JSR 

ERRHRD 



200$: ENDSUB 



000051 



999$: 



CNP 
BIT 
JSR 



#1 00001, T25PK5 

#T25PIC5,R4 

#177777.R0 

PCFILLNEN 

R3.T2SSZ , 

R4,TSDB(RS) 

PCWAITF 

TSSR(RS),R1 

fSSR.R2 

R^R2 

176$ 

«6IT2,R1 
170$ 

PCFATCHK 
ERRNO,RDERR,EXPREC 



aFREE«R1 
#1.Ri 

R1.R2 
206$ 

PCFATCHK 

ERRNO«T25UNH,EXPREC 



FATFLG,f25. 
999$ 

PC.CKDROP 



;L00P IP SELECTED 

TRAP C$CLP1 

.'RECORD 5I2E 

.•STARTING READ BUFFER ADDRESS 



:READ DATA.ACK CONNAND 

;SET UP R4 WITH PACKET ADDRESS 

:SET ALL ONES INTO CORRECT REGISTER 

.-FILL NENORY WITH RECORD SIZE 

:SET UP RECORD SIZE IN PACKET 

.•ISSUE CONNAND 

:WAIT FOR SSR TO SET 

:6ET TSSR CONTENTS 

.•SET UP EXPCCTEO 

;ARE THEY EQUAL 

;BR. IF OK 

; CHECK FOR TAPE STATUS ALERT 
:BR. IF BIT SET 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 



;L00P IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$£RHRD 
157 
RDERR 
EXPREC 

C$CLP1 



;GET FIRST WORD FROM BUFFER 

;SET UP EXPECTED 

;WAS RECORD NUNBERED R3 

:BR. IF CORRECT PECORD 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

.•SHOULD HAVE BEEN RECORD NUNBER 1 

TRAP 
.WORD 
.WORD 
.WORD 

;»»»»»» END SUBTEST »»»>»»> 
LI 0045: 

TRAP 

;IS ERROR COUNT AT 25 
;BR. IF I ESS THAN 25 
;TRy TO DROP THE UNIT 



C$ERHRD 
158 

r25WNH 
EXPREC 



C$ESU6 



CZTUYAO TU80 FRONT CND PRT C 
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A 782 
4785 
4784 
4785 
4786 
4787 
4788 
4789 
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SEO Y2S 



4790 
4791 
4792 
4795 
4794 
4795 
4>96 
4797 
4798 
4799 
4800 
4804 
4805 



4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
48U 
4818 
4819 



^820 

4821 
4822 
4825 
4824 
4825 
4826 
^827 
4828 
4829 
4833 



027156 
027156 
027156 
027160 
027164 
027170 



027174 
027200 
027202 
027206 
027210 
027210 
027212 
027214 



02722^* 
027250 
027232 
027236 
027240 
027240 
027242 
027244 
027246 
027250 
027250 



0272^^2 
027256 

027260 
027 262 
027266 
027266 
027270 
027272 



TEST 1. SUBTEST 6 

VERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE THE 
TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERHINATION 
UITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 



104402 

004737 031470 

004737 031562 

004737 031624 



004737 016644 
103407 

004737 020100 
010001 



BGNSUB 



JSR 
JSR 
JSR 



PC.T25REST 

PC,T25RT2 

PC,T25RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T1.6: 

TRAP CtBSUB 

:SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 



.ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



104455 
000213 
003550 



030100 



20$: 



JSR PC.SOFINIT 

BCS 20$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRDF ERRNG.SFIERR.SFIMSG 



MOV #T25PACKET,R4 



;D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

.'FATAL ERROR TSSR UAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

.'SUBROUTINE NEEDS PACKET ADDRESS 



CSERDF 

139 

SFIERR 
SFIMSG 



004737 010332 
103407 

004737 020100 
010001 

104456 
000214 
004754 
011666 

104406 



004737 010434 

103407 

010001 

004737 020100 

104456 
000215 
031257 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



25$: 



JSR 
BCS 
JSR 
MOV 
ERRNRD 



CKLOOP 



PC.WRTCNR 
25i 

PC.FATCHK 
R0.R1 

ERRNO.WRTMSG.SFIMSG 



.•ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

.-SAVE CONTENTS OF TSSR 

.WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 



CSERHRD 
140 

WRTNSG 
SFIMSG 



C$CLP1 



.•ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



JSR PC.REWINO 

BCS 30i 

MOV R0.R1 

JSR PC.FATCHK 

ERRHRD ERRNO.T25RWN.PKTSSR 



.CALL TAPE REWIND COMMAND 
.•BR, IF NO PROBLEM 
;SAVE TSSR 

:INC AND CHECK FOR MORE THAN 2S ERRORS 
.•REWIND NOT ACCEPTED 

TRAP CSERHRD 
.WORD 14'i 
.WORD T25RWN 



CZTUYAO TU80 FRONT END PRT C 
TEST 1: SPACE RECORDS 



027274 
027|76 
027276 



485A 

4835 
4836 
4837 
4838 
4859 

4840 027300 

4841 027304 

4842 027306 

4843 027312 

4844 027314 
«.845 027316 

4849 027322 
02732? 
027324 
027526 
0273^0 

4850 027332 
027332 

4851 027334 
4852 

4853 
4854 
4855 
4856 

4857 027J42 

4858 027350 

4859 027354 

4860 027!(60 

4861 027364 

4862 027370 

4863 027374 

4864 027376 

4865 Oi " 
4869 0 

o; 

0 
0 



4870 

4871 
4872 
4873 
4874 
4275 
4876 
4877 
4878 
4879 
4880 
4881 
4885 



^416 
7422 
17424 
17430 
7432 
7434 
7440 
027440 
027442 



011700 
104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000216 
030447 
016344 

104406 
012737 



012737 
012704 
010465 
004737 
016501 
012702 
020102 

m 




013701 
010102 

82^102 
0014Q6 
004737 

104456 
000220 
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308: CKLOOP 



H 10 
PAGE 80-1 



SEQ 124 



ILOOP IF SELECTED 



.WORD 
TRAP 



PKTSSR 
CSCLP1 



030126 
000002 

020100 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



40$: 



000001 030232 



PtOV T25BfR«6«R1 

NOV R1 ,R2 

BIS «8ITUR2 

CMP R1 .R2 

BED 40i 

JSR PCFATCNK 

FRRHRD ERRN0,T25B0T,EXPREC 



CKLOOP 

nOV #1,T2SRB 



.•PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP - REC'D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REUIND 

TRAP CSERHRD 
.WORD 142 
.WORD T25BOT 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C8CLP1 
;NUMBER OF RECORDS TO SPACE OVER 



.•SPACE RE VERSE. ACK COfWAND 



100410 
030230 
177776 
017120 
000000 
100206 



020100 



030230 



65$: 



75$: 



NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



CKLOOP 



#100410.T2SPK3 

fT25PK3.R4 

R4.TS06(R5> 

PC.WAITF 

TSSR(RS).R1 

#SSR!SC>BIT1!BIT2,R2 

PC.FATCHK 

ERRNO,T25W0E, PKTSSR 



; SPACE REVERSE .ACK COMNAND 
;SET UP R4 WITH PACKET ADDRESS 
.ISSUE CONNAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
.SET UP EXPECTED 
.-ARE THEY EQUAL 
;BR. IF OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ D^TA 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



C$ERHRD 
143 

T2SWDE 
PKTSSR 



C$CLP1 



;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



030126 
002000 

020100 



NOV 
NOV 
BIS 
CMP 
BEQ 
JSR 



T25BFR^6.R1 
R1.R2 
#BIT10.R2 
R1.R2 
176$ 

PC.FATCHK 



ERRHRD ERi)N0.T25NEF .EXPREC 



;GET XSTO STATUS WORD 

.-SET UP EXPECTED 

;SET THE NEF BIT 

:ARE THEY EQUAL 

:BR. IF EQUAL (GOOD) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;NEF SHOULD BE SET 

TRAP C$ERHRD 
.WORD 144 



CZTUVAO TU80 FHQNT END PUT C 
TEST 1: S?ACE RECORDS 




002170 
020152 



HACRO m200 29-IMR-83 13:43 



I 10 
PAGE 80-2 



170$: ENDSUB 



000031 



999»: 



CHP 
BLT 
JSR 



FATfL6,f25. 
999S 

PC.CKDROP 



SEO 125 



.WORD T25IIEF 

.yORd EXPREC 

L10044: 

TRAP CSESUB 



;IS ERROR COUNT AT 2S 
;BR. IF LESS THAN 2S 
;TRY TO DROP THE UNIT 



I 



i 

_ I 



CZTUYAO TU«0 FRONT END PRT C 
TEST 1: SPACE RECORDS 



48V2 
4895 
4894 
48V5 
4896 
4897 
4898 
4899 
4900 

4901 027466 
027466 
027466 

4902 027470 
4905 027474 
4904 027500 
4905 

4906 
4907 
4908 
4909 

4910 027504 

4911 027510 



4912 027512 
4916 027511 
49] 7 0275^1 



0275 



i 




4918 
4919 
4920 
4921 
4922 
4925 

4924 027534 

4925 027540 

4926 027542 

4930 027546 

4931 027550 
027550 
027552 
027554 
027556 

4932 027560 
027560 

4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4945 



7562 

7572 
7576 



104402 
004737 
004737 
004737 



004737 
103407 
004737 
010001 

104455 

011666 
012704 



004737 
103407 
004737 
310001 

104^56 
000222 
004754 
011666 

104406 



004737 
103407 



J 10 
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TEST 1, SUBTEST 7 



Seo 126 



VERIFIES THAT A SPACE RhCORDS REVERSE COMNANO THAT 
CUASES THE TAP£ TO RUN MO BOT (UITH THE TAPE NOT 
INITIALLY AT 80^) CAUSES A TAPE STATUS ALERT 
TERMINATION AND SETS THE REVERSE IN70 BOT (RIB) 
STATUS BIT 



031470 
C315S2 
031624 



016644 
020100 



B6NSUB 



JSR 
JSR 
JSR 



PC.T25REST 

PC.T25RT2 

PC.T25RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T1.7: 

TRAP' CSBSUB 

;SET rOfWAND PACKET 

:SET UP OTHFR COMMAND PACKET 

;SET UP OTHER COMMANT) PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



030100 



010332 
020100 



20S: 



JSR PC.SOFINIT 

BCS 20i 

JSR PCFATCNK 

NOV R0.R1 

ERRDF ERRNO.SFIERR.SFINSG 



MOV #T25PACKET«R4 



:D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.-CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR UAS MOT OK 

TRAP 
.WORD 
.UCPD 
WORD 

.-SUBROUTINE NEEDS PACKET 'ADDRESS 



CSERDF 

145 

SFIERR 
SFIMSG 



.-WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



2SS: 



JSR 
BCS 
JSR 
MOV 
ERRHRD 



CKLOOP 



PC.WRTCHft 
25i 

PC.FATCHK 
R0.R1 

ERRN0.URTMS6.SFIMSG 



.-ISSUE WRITE CHARACTERISTICS 
:6R. IF COMMAND ISSUED OK 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
.-SAVE CONTENTS OF TSSR 
.-WRITE CHARACTERISTISC FAILED 



.-LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
146 

WRTMS6 
SFIMSG 



TRAP CtCLPI 



010434 
020100 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



027576 104456 



JSR PC.REWIND 

BCS 30i 

MOV R0.R1 

JSR PC.FATCHK 

ERRHRD ERRN0.T25RWN.PKTSSR 



CALL TAPE REWIND C0MMAK'> 
BR. IF NO PROBLEM 
SAVE TSSR 

INC AND CHECK FOK MORE THAN 2S ERRORS 
REWIND NOT ACCEPTED 

TRAP CSERHRD 



CZTUYAO TU80 FRONT END PRT C 
TEST 1: SPACE RECORDS 



K 10 
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SEO 127" 



4946 

4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4961 



4962 
4963 
4964 
496': 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
4980 



4981 

4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
4990 
4991 
4992 
4993 
A994 
4995 



027600 
027602 
027604 
027606 
027606 



02^610 
027614 
027616 
027622 
027624 
027626 
027632 
027632 
027634 
027636 
027640 
027642 



027650 
027656 
027662 
027666 
027672 
027676 
027702 
027704 
027706 

027712 
027714 
027716 
C27720 
027722 
027722 
02772U 



027712 
027740 
0277i,(, 
027750 
027754 
027760 
02776h 
027766 



000223 
031257 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000224 
030447 
016344 
012737 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000225 
030367 
016344 

104406 
012737 



012737 
0^2704 
010465 
004737 
016501 
012702 
C20102 
001406 



30$: CKLOOP 



:LOOP IF SELECTED 



.WORD 
.yOR9 
.WORD 



147 

T25RUN 
PKTSSR 



TRAP CtCLPI 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



030126 
00002 

020100 



000001 030232 40S: 



NOV T2SBFR*6.R1 

mv R1 ,R2 

BIS «BIT1.R2 

CMP R1 .R2 

BEQ 40i 

JSR PCFATCHK 

ERRHRD ERRNO,T25BOT,EXPREC 



NOV f1,T2SRB 



:PICK UP XSTO 

;SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

;DOES EXP » REC'D 

;BR. IF EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 ERPORS 
.•TAPE NOT AT BOT AFTER REWIND 

TRAP 



.WORD 
.WORD 
.WORD 

.-NUMBER OF RECORDS TO SPACE OVER 



CSERHRO 
148 

T2580T 
EXPREC 



140210 
030230 
177776 
017120 
000000 
000200 



020100 



030230 



SPACE FORWARD. IE. ACK,CVC«1 CONNAND 



75f: 



000020 030232 



HOV #140210. T25PK3 

nOV #T25PK3.R4 

NOV R4.TS0B(R5) 

JSR PC.WAITF 

NOV TSSR(RS).R1 

NOV #SSR.R2 

CNP R1.R2 

BEQ 75i 

JSR PC.FATCHK 

ERRHRD ERRNO.T25WOE. EXPREC 



CKLOOP 

NOV f20.T25RB 



.•SPACE FORWARD. IE. ACK.CVCsl CONNANO 
;SET UP R4 WITH PACKET ADDRE<;5 
.•ISSUE CONNAND 
.WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
•BR IF OK 

;In£ and check FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHf»0 
.WORD 149 
.WORD T25WDE 
.WORD EXPREC 

.•LOOP IF SELECTED 

TRAP CSCLPI 
.-NUNBER OF RECORDS TO SPACE OVER 



100610 
030230 
177776 
017120 
000000 
100204 



030230 



SPACE REVERSE.IE.ACK CONNAND 



NOV #1 00610. T25PK3 

NOV #T25PK3,R4 

NOV R4.TSDB(R5) 

JSR PC.WAITF 

NOV TSSR(R5).R1 

NOV fSSR!BIT2>SC.R2 

CNP R1-R2 

BEQ 17S$ 



.•SPACE REVERSE. IE. ACK CONNAND 
;SET UP R4 WITH PACKET ADDRESS 
.•ISSUE CONNAND 
.WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
.GET UP EXPECTED 
:AKE THEY EQUAL 
;BR. IF OK 



CZ^UYAO iU80 FROWT EHb PUT C 
TEST 1: SPACE RECORDS 



4996 02777C\ 

5000 02777A 
02777k 
027776 
030000 
050002 

5001 050004 
OJ0004 

5002 030006 

5003 030012 
3004 030014 

5005 030020 

5006 03« 022 

5007 0300^4 

5011 030030 
030030 
030032 
030034 
050036 

5012 030040 
030040 
030040 

5013 030042 

5014 030050 

5015 030052 

5016 030056 

5017 030056 

5018 030062 

5019 030064 

5020 030070 

5021 030070 
03007C 
030072 



C04737 020100 

104456 
000226 
030367 
016344 



L 10 
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JSR PC.FATCHK 

ERRHRD ERRIIIO.T25UOE,EXPREC 



104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000227 
031115 
016344 



104403 
023727 
00240 
00473 



004737 
103002 
000137 



104432 
001562 



030134 
000001 

020100 



002170 
020152 
017354 
023704 



000031 



175S: CKLOOP 

MOV 
MOV 
BIS 
CW» 
BEO 
JSR 

ERRHRD 



180S: ENOSUB 



BLT 
JSR 

JSR 
6CC 
JMP 

EXIT 



999f: 
193S: 



T25BFR*U,R1 

R1,R2 

«8IT0»R2 

R1-R2 

186s 

PC.FATCHK 

ERRN0,T25NEF,EXPREC 



FATFLG.#25. 
999$ 

PCCKOROP 

PC-TSTLOOP 

19U 

T25100P 

TST 



;1NC AND CHECK fOR K)RE THAN 25 ERRORS 
:TSSR INCORRECT AFTER READ DATA 

TRAP CtERHRD 
.WORD 150 
.WORD T25WDE 
.WORD EXPREC 

;LOOP IF SELECTED 

TRA." C$CLP1 

:GET XST3 STATUS WORD 

;SET UP EXPECTED 

:SET THE RIB BIT 

;ARE THEY EQUAL 

;BR« IF EQUAL (GOOD) 

;INC AKD CHECK FOR MORE THAN 25 ERRORS 

;NEF SHOULD BE SET 

TRAP CSERHRD 
.WORD 151 
.WORD T25NEF 
•WORD EXPREC 
;»»»»»>> END SUBTEST »»»»»» 
LI 0045: 

TRAP CSESUB 
;IS ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
.-TRY TO DROP THE UNIT 

:D0 JE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
; EXECUTE AGAIN 

;ALL DONE THIS TEST 

TRAP CSEXIT 
.WORD L10036-. 



N 10 



CZTUYAO TU80 FRONT END PRT C 
TEST -•: SPACE RECORDS 
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SFO 1?9 



03007A 
030100 
030100 
. 030102 

5032 030104 

5033 030106 

5034 030110 

5035 030110 

5036 030112 

5037 030114 

5038 030116 

5039 030120 
S040 

5041 
5042 

5044 030202 

5046 030210 

5047 030210 

5048 030212 

5049 030214 

5050 030216 
5051 

5053 030220 

5055 030230 

5056 030230 

5057 030232 

5058 030232 

5059 030234 

5060 030236 
5061 

5062 
5063 
5064 

5065 030240 

5066 030240 

5067 030241 

5068 030242 

5069 030244 
5070 

5071 
5072 
5073 
5074 

5075 030246 

5076 030250 

5077 030252 

5078 030254 
5079 

5080 



LOCAL STORAGE FOR THIS TEST 

10-<.-TUV2At7> 



100004 
030110 
000000 
000010 

030120 
000000 
000012 
000000 



100006 
030240 
000000 
000006 



100005 

003072 
000000 
000000 



010 
200 
000000 
000000 



100005 
100405 
102005 
y77777 



.BLKB 
T25PACICET: 

.WORD 
.WORD 
.WORD 
.WORD 

T25DATA: 

.yORD 
.WORD 
.WORD 
.WORD 
T25BFR: .BLKW 



100004 
T25DATA 
0 
8. 

T25BFR 
0 

10. 
0 

25. 



WRITE SUBSYSTEM KNORY CONNAND PACKET 





.BLKB 


10-<.-TUV2A*7> 


T25PK2: 






.WORD 


100006 




.WORD 


T25BF2 




.WORD 


0 




.WORD 


6. 




.BLKB 


10-<.-TUV2A»7> 


T25PIC3: 






.WORD 


100005 


T25RB: 






T25ue: 


.WORD 


FREE 




.WORD 


0 


T25SZ: 


.WORD 


0 




.EVEN 





T25BF2: 






T25BS0: 


.BYTE 


10 


T25BS1 : 


.BYTE 


200 


T25S2: 


.WORD 


0 


T25S3: 


.WORD 


0 



.EVEN 

.-TAPE MOTION PACKET COHNAND VALUES 



T25RN: .WORD 
r25WDR: .WORD 
T25C0N: .WORD 
.WORD 



100005 
100405 

102005 
177777 



: COMMAND PACKET FOR TEST 

.'WRITE CHARACTERISTICS COMMAND, WITH 

.•ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BLOCK SIZE 
.•CHARACTERISTICS DATA BLOCK 
.-ADDRESS OF MESSAGE BUFFER 

.'LENGTH OF MESSAGE BUFFER 

;NESSAGE BUFFER 



.•WRITE SUB SYS MEM COMMAND. AND ACK 
.•ADDRESS OF SELECT BLOCK DATA 

;SI2E OF DATA PACKET 



ACK 



.•READ COMMAND. AND ACK 
.•ADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER (EXTENT) 



BSELO AREA 
BSEL1 AREA 
SEL 2 AREA 
DATA AREA 



.•READ DATA (NEXT) 
;READ DATA RETRY 
.•WRITE C0NTIN0U5 
:END OF DATA 



N 10 



CZTUYAO TU80 FRONT END PRT C 
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SEQ ISO 



5082 
5083 
508A 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
509A 
5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
5103 
510A 
5105 
5106 
5107 
5108 
5109 
5110 
5111 
5112 
5113 
51U 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
512A 
5125 
5126 
5127 
5128 
5129 
5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 



030256 
030260 
030262 



030264 
030306 
030367 
030447 
030514 
030603 
030657 
030742 
031032 
031115 
031175 
031257 
031326 
031401 
031452 



031470 
031470 
031474 
031500 
031504 
031510 
031512 
031516 
031522 
031524 
031530 
031532 
031536 
031542 
031550 
031552 
031556 
031560 

031562 
031562 
031566 
031572 
031576 
031602 



000000 
000000 
000000 



104 
127 
124 
124 
124 
127 
123 
123 
123 
123 
123 
122 
104 
124 
123 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 



122 
122 
123 
141 
123 
162 
160 
160 
160 
160 
160 
145 
162 
123 
160 



030100 
100004 
030110 

C00012 
030120 

000024 

000000 
000030 
177777 

000000 



030210 
100006 
030240 



111 
111 
123 
160 
123 
151 
141 
141 
141 
141 
141 
167 
151 
123 
141 



T25CN2 
T25CNT 
T250LV 



.WORD 0 
.yORO 0 
.WORD 0 



.•COUNTER FOR RECORDS 
.•COUNTER FOR RECORDS 
.•COUNTER FOR RECORDS 



•LOCAL TEXT MESSAGES FOR TEST 



T210FL: 
T25SSR: 
T25U0E: 
T25B0T: 
T25TH: 
T25NET: 
T25UNG: 
T25BNC: 
T25UNH: 
T25NEF : 
T25RIB: 
T25RUN: 
T250FL: 
T25UDC : 
TST25I0: 



.ASCI2 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



DRIVE IS OFF-LINE* 

WRITE SUBSYSTEM Miscellaneous Read Status Failed' 
TSSR Not Correct After POSITION (SPACE) COMMRd* 
Tape Not At BOT After REWIND CoMand' 
TSSR Not Correct After POSITION (Space Comnand) Reject* 
Write Tape, Status Alert, But No EOT Sensed* 
Space Forward Failed To Position On Correct Record* 
Space Forward* from BOT, Failed To Clear BOT Indication* 
Space Reverse Failed To Position On Correct Record* 
Space Reverse, At BOT, Failed To Set NEF (XSTO)' 
Space Reverse, Into BOT, Failed To Set RIB (XST3)' 
Rewind (POSITION) CoMiand Not Accepted' 
Drive 7 Select Failed To Set 'lOFL'^^In TSSR* 
TSSR Not Correct After READ DATA Comnand* 
ASCIZ 'Space Records* 



•ROUTINE TO RESTORE CONNAND PACKET TO START-UP (DEFAULT) VALUES 
.-WRITE SUBSYSTEM NENORV COMNAND 



T25REST: 



030120 64$: 



T25RT2: 



SAVRE6 




MOV 


#T25PACICET,R1 


MOV 


#100004, (R1)+ 


MOV 


#T25DATA,(R1)* 


CLR 


(R1) + 


MOV 


#10.,(R1)* 


MOV 


#T25BFR,(R1)« 


CLR 


(R1) + 


MOV 


#20.,(R1)+ 


CLR 


(R1) + 


MOV 


#0,(R1) 


MOV 


#24., R2 


MOV 


#1 77^77, T25BFR(R2) 


TST 


-(R2) 


CMP 


#0,R2 


BNE 


64$ 


RTS 


PC 


SAVREG 




MOV 


#T25PIC2.R1 


MOV 


#100006, (RD* 


MOV 


#T25BF2,(R1)* 


CLR 


(RD* 



;SAVE THE REGISTERS 

;,START OF THE PACKET 

:WRITE SUBSYSTEM MEM. WITH ACK 

;ADDRESS OF CHARAISTICS DATA BLOCK 

; EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

.•ADDRESS OF MESSAGE BUFFER 

.•LENGTH OF MESSAGE BUFFER 

.•SELECT DRIVE ZERO 

.•NUMBER OF LOCATIONS TO BE CLEARED 

;ALL ONES TO MESSAGE BUFFER 

:NEXT LOCATION 

;IS R2 AT ZERO YET 

.-KEEP GOING UNTIL DONE 

.•RETURN 



;SAVE THE REGISTERS 

; START OF THE PACKET 

;WRITE SUBSYSTEM MEM. WITH ACK. 

; ADDRESS OF DATA BLOCK 

.•EXTENDED ADDRESS 



CZTUYAO TU80 FRONT END PRT C 
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5139 
5U0 
5U1 
5142 
5U3 
5UA 
5V-5 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 



031604 
031610 
031612 
031616 
031620 
031622 
031624 
031624 
031630 
031634 
031640 
031644 
031646 
031652 
031654 
031654 
031654 



012721 
005021 
012701 
005021 
005011 
000207 



012701 
012721 
012721 
005021 
012721 
000207 



104401 



000006 
030240 



030230 
000000 
000000 

000000 



T25PT3: 



NOV 
CLR 
MOV 

CLR 
CLR 
RTS 

SAVRE6 
MOV 
NOV 
NOV 

CLR 
NOV 
RTS 

ENDTST 



#6..(R1)* 
(RlJ* 

#T2SBF2,R1 

(RD* 

(R1) 

PC 



#T25PK3.R1 

#0«(R1)t 

#0.(R1)* 

(RD* 

#0,(R1)t 

PC 



SEO 131 



:SIZE OF DATA BLOCK IN BYTES 
.•POINT TO DATA SEL AREA 



.•RETURN 

.•SAVE THE REGISTERS 

; START OF THE PACKET 

;URITE SUBSYSTEM MEM. WITH ACK. 

.•ADDRESS OF DATA BLOCK 

.•EXTENDED ADDRESS 

.-SIZE OF DATA BLOCK IN BYTES 

.•RETURN 

L10036: 

TRAP C$ETST 



C 11 



C2TUYA0 TU80 FRONT END PRT 
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5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
516« 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 



MACRO HI 200 29-AAR-83 13:43 PAGE 8A 



.SSTTL TEST 2: REREADS 



THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND FVEN 
DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIABLE), AND BYTE-SWAP (SUP) AND OPPOSITE (OPP) 
CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON 
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD 
LENGTH SHORT. READ REVERSE AT 60T. ILLEGAL DATA BUFFER ADDRESSES, 
AND DATA BUFFERS IN NONEXISTENT MEMORY. 

THE TEST CONSISTS OF THE FOLLOWING IS SUBTESTS 



:>EQ 132 



51 7A 
5175 
5176 
5177 
5182 
5183 
5184 
5185 
5186 
5197 
5188 
5189 
5190 
5191 
5192 
3193 
5194 
5195 
5196 
5197 
5196 
5199 
5200 
5201 
5202 
5C03 
5204 
5205 
5206 
5207 



5208 
5209 
5210 
5211 
'i212 



031656 
031656 
031656 
031662 
031666 
031674 
031700 
031704 
031710 
031716 



005037 
005037 
012737 
004737 
012700 
004737 
012727 
005037 



002170 
003100 
005764 
020244 
050627 
017406 
000001 
046076 



002146 
002164 



031722 

031722 
031722 
031722 
031 T2<. 
031 730 
031^34 
031740 



10440? 

00473/ 050640 

004737 050732 

004737 050774 

012737 176750 



BGNTST 

TLR 
CLR 
MOV 
JSR 
MOV 
JSR 
MOV 
CLR 



FATFLG 
KTFLG 

«FPRT2,EPRTSW 

PCKTOFF 

«TST26ID,R0 

PCTSTSETUP 

«1,L00PCNT 

T2&CNT 



T2: : 

.'CLEAR FATAL ERROR FLAG 
;HOLD OFF KT11 

.-SECONDARY ERROR MESSAGE 
.•DON'T NEED KT11 
.•ASCII MESSAGE TO IDENTIFY 
;D0 INITIAL TEST SETUP 
;PbPF0RM 1 ITERATIONS 
.•CLEAR TAPE RECORD COUNTER 



TEST 



TEST 2. SUBTEST 1 



VERIFIES THAT THE REREAD PREVIOUS COMMAND 
OPERATES PROPERLY. THE TAPE IS FIRST 
REWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE 
IS THEN REWOUND AGAIN. TOR EACH TEST RECORD. THE 
TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
PREVIOUS COMMAND ISSUED. RESULTS (STATUS. DATA. 
ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
PREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



T26LOOP: 



046104 



6GNSUB 



JSR 
JSR 
JSR 
MOV 



PC.T26REST 
PC,T?6RT2 
PC.T26RT3 
#65000., T26DLY 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.1: 

TRAP CIBSUB 

;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP DELAY COUNTER 



CZTUYAO TU80 FRONT END PRT C 
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SEO 1SS 



h4 



5215 
5216 
5217 
5218 
5219 
5220 
5221 



.•ISSUE CONTROLLER "SOFT" INITIALIZE - CARRV BIT CLEAR IF EMHM 



S<f22 
5223 
5224 
5228 
5229 



5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5246 
5247 



5248 



5249 

5250 

5251 

525 

525 

5254 

5255 

5256 

5257 

5258 



031746 
031752 
031754 
031754 
031760 
031762 
031766 
031770 
031774 
031776 
032002 
032004 
032010 
032012 
032016 
032020 
032020 
032022 
032024 
032026 
032030 



004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000311 
003550 
011666 



016644 

000250 
002116 
177772 
177756 
046104 
020100 



10$: 



JSR PC.SOFINIT 
BCS 20$ 
DELAY 250 



DEC 
BNE 
JSR 
NOV 
ERRDF 



T26DLr 
10$ 

PCFATCHK 
R0*R1 

ERRN0,SFIERR,SFINS6 



20$: 



032030 012704 045720 



NOV 



fT26PACKET«R4 



;D0 INITIALIZE ON CONTROLLER 

;BR IF INI T IMS OK 

: DELAY FOR A REWIND TO FINISH 

NOV #250, (PC)* 
.UORD 0 

NOV L$DLY.(PC)^ 

.WORD 0 

DEC -6<PC) 

BNE .-4 

DEC -22<PC) 

BNE .-20 

;DEC COUNTER 

;BR, IF DELAY NOT READY 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.UORD 201 
.WORD SFIERR 
.UOR!> SFINSG 



: SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS CONNAND (CALL TO WRTCHR) 



032034 
032040 
032042 
032046 
032050 
032050 
032052 
032054 
032056 
032060 
032060 



004737 010332 
103407 

004737 020100 
010001 

104456 
000312 
004^54 
011666 

104406 



26$: 



JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 



PC.WRTCHR 
26i 

PC.FATCHK 
R0.R1 

ERRNO.URTNSG.SFINSG 



.-ISSUE URITE CHARACTERISTICS 
.•BR. IF CONNAND ISSUED OK 
;INC AND CHECK FOR NORE THAN 2S ERRORS 
;SAVE CONTENTS OF TSSR 
.-URITE CHARACTERISTISC FAILED 



:L0OP IF SELECTED 



TRAP 
.UORD 
.UORD 
.UORD 



CSERHRD 

202 

URTNSG 
SFINSG 



TRAP C$CLP1 



ISSUE REUIND CONNAND TO SELECTED TAPE DRIVE 



032062 
032066 
032070 



004737 010434 
103413 

016501 000000 



JSR 
BCS 
NOV 



PC.REUINO 
30i 

TSSR(RS).R1 



.-CALL TAPE REUIND CONNAND 
:BR. IF NO PROBLEN 
.-GET TSSR 



CZIUYAO TU80 FRONT END PRT C 
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5259 03207A 

5260 032100 

5261 032102 

5265 032't06 
032106 
032110 
032112 
0321 U 

5266 032116 
032116 

5267 
5268 
5269 
5270 
5271 

527I 

527A 032120 

5275 032 12A 

5276 032126 

5277 032132 

5278 0321 3« 

5279 032136 
5283 032U2 

0321 A2 
0321 AA 
0321 A6 
032150 
528A 032152 
032152 

5285 0321 5A 

5286 032160 
5^87 

5288 
5289 
5290 
5291 
5292 
5293 

529A 032166 
529'; 0321 7A 

5296 032200 

5297 032200 
5398 032202 
5299 032206 
530C 032212 

5301 032216 

5302 032222 

5303 032226 
5^0A 032232 

5305 03223A 

5306 032236 
5310 

5311 
5312 

5313 0322A2 
0322A2 



012702 000200 
01000^ 

00A737 020100 

10AA56 
000313 
0A7A0A 
011700 

10AA06 



013701 
010102 
052702 
020102 
001A06 
00A737 

10AA56 
00031 A 
0A7115 
0163AA 

10AA06 
012703 
013737 



012757 
o12rOA 

010300 
00A737 
010337 
010A65 
00A737 
016501 
012702 
020102 
001 A06 
00A737 



10AA57 
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mv «SSR,R2 

MOV RO«RA 

JSR PC.FATCHK 

ERRHRD ERRN0«T26RUN,PKTSSR 



>EQ 134 



30t: 



CKLOOP 



;5ET UP EXPECTED TSSR 
.•PACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE 
.-REWIND NOT ACCEPTED 



.-LOOP IF SELECTED 



THAN 25 ERRORS 



TRAP 
.WORD 
.WORi/ 
.WORD 



CSERHRD 
203 
T26RWN 
PKTSSR 



TRAP C$CLP1 



•READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



0AS7A6 
000002 

020100 



AOS: 



MOV 
MOV 
BIS 
CMP 
B^Q 
JSR 

ERRHRD 



CKLOOP 



T26BFR*6.R1 

R1,R2 

#6IT1.R2 

R1.R2 

AOi 

PC.FATCHK 

ERRNO.T26BOT.EXPREC 



OOOAOO 
003072 



0A6052 



MOV 
MOV 



#2S6.,R3 
FREE,T26RB 



;PICK UP XSTO 

;SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

;DOES EXP * REC'D 

;BR. IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
:TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WOitD 
•WORD 

:LOOP IF SELECTEif 

TRAP 

•RECORD SI^E 

•STARTING WRITE BUt^FER ADDRESS 



CSERHRD 
20A 
T2660T 
EXPREC 

CSCLP1 



****************************************************************** 

WRITE DATA.ACK.CVCsl COMMAND 

****************************************************************** 



1A0005 
0A6050 



020372 
0A6056 
177776 
017120 
000000 
000200 



020100 



0A60SC 



65S: 



MOV #1A000S.T26PK3 

MOV «T26PK3,RA 

MOV R3.R0 

JSR PC.FILLMEM 

MOV R3.T26SZ 

MOV RA.TSDB(RS) 

JSR PC.WAITF 

MOV TSSR(R5).R1 

MOV fSSR,R2 

CMP R1.R2 

BEQ 75i 

JSR PC.FATCHK 



ERRSOFT ERRNO«WRTERR. EXPREC 



;WRITE DATA.ACK«CVC=1 COMMAND 
;SET UP RA WITH PACKET ADDRESS 

:SET PATTERN IN CORRECT REGISTER 
;FILL MEMORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 
:WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
:$ET UP EXPECTED 
;ARE THEY EQUAL 
*BR IF OK 

]lHt AND CHECK FOR MORE THAN 25 ERRORS 
.SOFT ERROR GENERATED BECAUSE THE 
.WRITE COMMAND IS NOT BEING CHECKED 
:HERE. IT WAS CHECKED IN CZTUXA 
:TSSR INCORRECT AFTER WRITE DATA 

TRAP CSERSOFT 



J 
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SEQ 13$ 



55U 

5315 
5316 
5317 
5318 

5319 
5320 
5321 
5322 
5323 
5524 
5525 
5526 
5 527 
5 528 
5329 
5"<30 

5552 
S336 



S537 

5 538 

5539 
55AO 
5541 
5342 
5345 
5544 
5545 
5546 
5547 
5548 
'^349 
5550 
5554 



5^55 

5356 
5357 
5358 
5359 
5560 
5561 



032244 
032246 
032250 
032252 
032252 
032254 
032256 
052262 
032264 
C32264 
032266 



032266 
032272 
032274 
032300 
03230^ 
05:506 
052312 
032312 
032314 
052316 
032320 
032322 
032322 



032324 
032530 
032352 
032356 
032340 
032342 
032346 
052346 
032350 
032352 
032354 
032356 
032356 
032360 



000315 
00S011 
016344 

104406 
005723 
022703 
001346 

104406 



000414 



75$: 

80$: 
120$. 



CKLOOP 

TST (R3)* 
CMP #268. «R3 
BNE 65$ 
CKLOOP 



.-LOOP IF SELECTED 



.yORD 
.yORD 
.WORD 



205 

URTERR 
fXPREC 



;BUNP RECORD SIZE 
:END OF RECORD YET 
;BR« IF MORE RECORDS T9 URITE 
:LOOP IF SELECTED 



TRAP C$CLP1 



TRAP C$CLP1 



•ISSUE REWIND CCMNAND TO SELECTED TAPE DRIVE 



004737 010434 



103413 
016501 
012^02 
010004 
004737 

104456 
000316 
047404 
011700 

104406 



000000 
000200 

020100 



JSR 
BCS 
MOV 
MOV 
NOV 
JSR 

ERRHRD 



130$: CKLOOP 



PC.REUIND 
136$ 

TSSR(R5)«R1 
#SSR,R2 
R0«R4 
PC.FATCHK 

ERRNO,T26RUN«PKTSSR 



.-CALL TAPE REWIND COfflAND 
;BR. IF NO PROBLEN 

;6ET TSSR 

;SET UP EXPECTED TSSR 
.-PACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

206 

T26RWN 
PKTSSR 



TRAP C$CLP1 



READ NESSA6E BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



045/46 
000002 



020100 



013"'01 
010102 
052702 
020102 
001406 
004737 

104456 
000317 
047115 
011700 



104406 

012737 000400 



140$: 



046102 



KOV T26dFR»6,R1 

NOV R1,R2 

BIS «Bn.R2 

CNP R1.R2 

BEQ 140$ 

JSR PC.FATCHK 

ERRHRD ERRN0,T26B0T,PKTSSR 



CKLOOP 

NUV f256.,T26RSZ 



;PICK UP XSTO 

;SET UP EXPECTED 

;SFT BOT BIT IN EXPECTED 

.-DOES EXP - REC*D 

;BR, IF EQUAL (OK) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
:TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

:LOOP IF SELECTED 

TRAP 

;SET RECORD SIZE 



C$ERHRD 

207 

T26B0T 
PKTSSR 

C$CIP1 



ISSUE SPACE RECORDS CONHAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - O-FORUARD UREVERSE 



J 



rZTUYAO TUdO fRONT END PRT C 
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m 



55?0 
5374 



5375 



536< 
5361 
5564 

5365 0] 

5366 O! 

5367 032376 
3368 032400 
5369 032404 

032410 
032414 
052414 
032416 
032420 
032422 
. 032424 

5376 032424 

5377 032430 
5378 

5379 
5380 
5381 
5382 
5383 
5384 

5585 032436 

5586 032444 

5387 032450 

5388 032454 

5589 032460 

5590 032464 

5391 032470 

5392 032474 

5393 032476 

5394 032500 

5398 032504 
032504 
032506 
032510 
032512 

5399 032514 
032514 

5400 032516 

5401 032522 

5402 032524 

5403 032530 

5404 032532 

5405 032534 

5406 032536 

5407 032540 

5408 032542 

5412 032546 
032546 
032550 
032552 
032554 

5413 032556 
032556 



012703 
004737 
103412 
016501 
012702 
004737 

104456 
000320 
046517 
016344 

013703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000321 
047740 
011700 

104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
004737 

104456 
000322 
047162 
016344 

104406 



000001 
010140 

000000 
000200 
020100 



046102 
003072 



141001 
046050 
046056 
177776 
017120 
000000 
000200 



020100 



003072 
000400 



020100 
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145S: 



150$: 



046052 



my #i«R3 

JSR PC.SPACE 

BCS 156$ , 

nOV TSSR(RS),R1 

•WV #SSR,R2 

JSR PCFATCHK 

ERRHRO ERRN0,T26SC,£XPREC 



nOV T26RSZ.R3 
MOV FREE.T26R8 



COWAND 



.•SPACE ONE RECORD PARAMETER 

;CALL SPACE ROUTINE 

;BR, IF NO PROBLEM WITH SPACE 

;GEr TSSR 

;SET UP EXPECTED TSSR 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•POSITION (SPACE RECORDS) FAILED 

TRAP C$ERHRD 
.WORD 208 
.WORD T26SC 
.WORD EXPREC 

•RECORD SIZE 

•STARTING READ BUFFER ADDRESS 



REREREAD DATA.CVC-1 ,ACK COMMAND 

**********************************t ******************************* 



046050 



MOV 

165$: MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



170$: CKLOOP 

MOV 
MOV 

SUB 

173$: ADD 
CMP 
BEQ 

nov 

MOV 

JSK 

ERRHRD 



180$: CKLOOP 



#141001.T26Plt3 

#T26PK3,R4 

R3,T26SZ 

R4,TSDB(RS) 

PCWAITF 

TSSR(R5),R1 

#SSR.R2 

R1.R2 

176$ 

PCFATCHK 

ERRN0,T26UDC,PKTSSR 



;RER£READ DATA,CVC-1 ,ACK COWAND 
;SET UP R4 WITH PACKET ADDRESS 
:SET UP RECORD SIZE IN PACKET 
.ISSUE COMMAND 
;UAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
•GIR if OK 

•INC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER REREAD DATA 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 

209 

T26yDC 

PKTSSR 



FREE,R2 
R3.R4 

R2,R4 

(R4).R3 

180$ 

(R4>.R1 

R3«R2 

PC.FATCHK 

ER9N0,T26DTA,EXPREC 



.•LOOP IF SELECTED 

TRAP C$CLP1 
.•CURRENT BUFFER ADDRESS TO R2 
.•CURRENT RECORD SIZE 
.•FIRST LOCATION IN BUFFER 
;SET UP POINTER 

: CHECK DATA READ (R3-DATA ALSO) 
;BR. IF ALL IS WELL 
;RECD DATA 
;EXPECTED DATA 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
:DArA READ NOT = WRITTEN 

TRAP C$ERHRD 
.WORD 210 
.WORD T26DTA 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 



H 11 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 



MACRO Pf1200 29-nAR-83 13:43 PAGE 84-S 



032560 
032562 
032564 
032566 

5418 032570 

5419 032572 

5420 032576 

5421 032602 

5422 032604 
032604 

5423 032606 
032606 
032606 
032610 
032616 



5414 
5415 
5416 
5417 



54 
54 



5426 032620 

5427 032624 



005724 
160204 
020403 
001360 
005723 
010337 
022703 
001271 

104406 



104403 
023727 
002402 
004737 



046102 
000412 



190i: 



002170 000031 
0201 S2 



999$: 



TST 
SUB 
CHP 
8NE 
TST 
MOV 
CW» 
BME 

CKLOOP 
ENDSUB 



CHP 
BLT 
JSR 



(R4)« 

R2,R4 

R4-R3 

1?S$ 

(R3)* 

R3J26RSZ 

#266., R3 

145$ 



FATFL6,#25. 
999$ 

PCCKOROP 



BUMP TO NEXT LOCATION 

CORRECT RECORDS SIZE VALUE 

END OF RECORD VET 

BR, IF NOT AT END OF RECORD 

BUnP RECORD SIZE 

RESET RECORD SIZE 

END OF RECORD VET 

BR, IF MORE RECORDS TO READ 

LOOP IF SELECTED 

TRAP C$CLP1 
:»»»»»» END SUBTEST »»»»»» 
LI 0047: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
:TRV TO DROP THE UNIT 
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I? 
3 



5A 
5A 
54 
54 
54 
54 

54?6 
5437 
5438 
5439 
5440 
5441 
5442 032624 
0326^4 




544S 032636 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 032M2 

5454 0326/.6 

5455 032650 

5459 032654 

5460 032656 
032656 
032660 
032662 
032664 

5461 032666 
5462 

5463 032666 

5464 

5465 

5466 
5467 
5468 
5469 
5470 

5471 032672 
54 72 032676 
5473 032700 
5477 032704 
Si,7t 032706 
032706 
032710 
032712 
032714 
5479 032716 
032716 

5480 
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TEST 2, SUBTEST 2 



SCO 13a 



VERIFIES THAT THE REREAD PREVIOUS COfWAND UITH OPP^O 
AND SyBsl OPERATES PROPERLY. THE TEST SEQUENCE IS 
THE SANE AS THAT USED IN SUBTEST 1, BUT IT IS 
VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
SUAPPED BYTES. 



104402 

00473? 050640 

004737 050732 

004737 050774 



BGNSU6 



JSR 
JSR 
JSR 



PC,T26REST 

PC,T26RT2 

PC,T26RT3 



:»»»»»» BEGIN SUBTEST »»»»»» 
T2.2: 

TRAP CSBSUB 

;SET COMMAND PACKET 

:SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 016644 
103407 

004737 020100 
010001 

104455 
000323 
003550 
011666 



012704 045720 



JSR 
BCS 
JSR 
MOV 
ERRDF 



PC.SOFINIT 
20i 

PCFATCHK 
RO.RI 

ERRNO,SFIERR,SFIMSG 



20$: 



MOV 



#T26PACKET,R4 



:D0 INITIALIZE ON CONTROLLER 
*BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP CtERDF 
.UORD 211 
.WORD SFIERR 
.WORD SFIMSG 



; SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO NRTCHR) 



004737 010332 
103407 

004737 020100 
010001 

104456 
000324 
004754 
011666 

104406 



26$: 



JSR 
BCS 
JSR 
MOV 
ERRHRO 



CKLOOP 



PC.URTCHR 
26i 

PC.FATCHK 
RO.RI 

ERi^NO.URTNSG.SFIMSG 



; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
;SAVE CONTENTS OF TSSR 
;URITE CHARACTERISTISC FAILED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 

212 

WRTMSG 
SF IMSG 



TR^P CSCLP1 



004737 
103413 
016501 
012702 
01000A 
004737 

104456 
000325 
047/04 
011700 

104406 



5518 
5519 
5520 

55:i 

5522 
5523 
5524 

5525 035024 

5526 C33032 

5527 033036 

5528 033036 

5529 03^040 

5530 033044 
S53! 033050 

5532 033054 

5533 033060 



01370i 
010102 
052702 
020102 
001406 
004737 

104<.56 
000326 
047115 
016344 

104406 
012703 
013737 



012737 
012704 

010300 
004737 
010337 
010465 
004737 
016501 



010434 

000000 
000200 

020100 



C2TUYA0 TU80 FRONT END PRT C 
TEST 2. REREADS 



5481 
5432 
5483 
5484 
5485 
5486 

5487 032720 

5488 032724 

5489 032726 

5490 032732 

5491 032736 

5492 032740 

5496 032744 
032744 
032746 
032750 
032752 

5497 032754 
032754 

5498 
5499 
5500 
5501 
5502 
5503 
5504 

5505 032756 

5506 032762 

5507 032764 

5508 032770 

5509 032772 

5510 032774 

5514 033000 
033000 
033C02 
033004 
033006 

5515 033010 
033010 

5516 033012 

5517 033016 
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SEO 139 



•ISSUE REyiNO COfWAND TO SELECTED TAPE DRIVE 



30S: 



JSR 
BCS 
NOV 
NOV 

nov 

JSR 

ERRHRD 



CKLOOP 



PC.REUIND 

30i , 

TSSR(R5)«R1 

tSSR,R2 

R0,R4 

PCFATCHK 

EPRN0,T26RIM,PKTSSR 



;CA(.L TAPE REWIND COMMNC 
;BR. IF NO MOBLEfl 
;6Ef TSSR 

;SET UP EXPECTED TSSR 
;PACKET ADDRESS SET UP 
;INC AND CHECK FOR fK)RE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



.'LOOP IF SELECTED 



TRAP 
.WORD 
.yORD 
.WORD 



CtERHRD 
213 

T26RWN 
PKTSSR 



TRAP CSCI PI 



•READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
******************************************************************* 



045746 
000002 

020100 



40$: 



NOV 
NOV 
BIS 
CNP 
GEO 
JSR 

ERRHRD 



CKLOOP 



r266FR*6.R1 

R1,R2 

«BITUR2 

R1.R2 

40$ 

PC.FATCHK 

ERRN0.T26B0T.EXPREC 



000400 
003072 



046052 



NOV 
NOV 



#256., R3 
FREE,T26R6 



;PICK UP XSTO 

;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;DOES EXP = REC'D 
:BR, IF EQUAL (0K> 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

.•LOOP IF SELECTED 

TRAP 

:RECORD SIZE 

.•STARTING WRITE BUFFER ADDRESS 



C$ERHR9 

214 

T26BOT 
EXPREC 

C$CLP1 



;****************************************************************** 

•URTTE DATA.ACK.SUB CONNAND 



110005 
046050 



020372 
046056 
177^76 
017120 
000000 



046050 



65$: 



NOV #110005,T26PK3 

NOV #T26PK3.R4 

NOV RS.RJ 

JSR PCFILLNEN 

NOV R3,T26SZ 

NOV R4.TSDB(R5) 

JSR PC.WAITF 

NOV TSSR(R5).R1 



.•WRITE DATA.ACK.SWB CONHAND 
:SET UP R4 WITH PACKET ADDRESS 

;SET PATTERN IN CORRECT REGISTER 
:FILL HENORY WITH RECORD SIZE 
.SET UP RECORD SIZE IN PACKET 
.•ISSUE CONNANO 
;WAIT FOR SSR TO SET 
.GET TSSR CONTENTS 



C2TUYA0 TU80 FR(WT END PRT C 
TEST 2: RCREADS 
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SEO UO 



555A 0330W 

5535 035070 

5536 033072 

5537 033074 
5541 

5542 
5543 

5544 033100 
033100 
033102 
033104 
035106 

5545 033110 
035110 

5546 055112 

5547 053114 

5548 055120 

5549 055122 
055122 

5550 055124 
5551 

5552 
5555 
5554 
5555 
5556 
5557 

5558 055124 

5559 053130 

5560 035152 

5561 055156 

5562 055142 
55^5 033U4 

5567 033150 
035150 
033152 
033154 
033156 

5568 033160 
0331 6C 

5569 
5570 
5571 
5572 
5573 
5574 
5575 

5576 033162 

5577 033166 

5578 035170 

5579 055174 

5580 0551/6 

5581 055200 
S585 055204 

033204 

m 



012702 000200 

020102 

001406 

004737 020100 



104457 
000327 
005011 
011700 

104406 
005725 

.22705 000414 



MOV 
Cl¥> 
SEO 
JSR 



fSSR.RZ 

R1,R2 

75i 

PCFATCHK 



001546 
104406 



75$: 

80S: 
120$: 



ERRSOPT ERRNO.URTERR.PKTSSR 



CKLOOP 

TST (R3)* 
CMP «268.,R3 
BNE 6SS 

CKLOOP 



;SET UP EXPECTED 
;ARE THEY EOilAL 
*BR IF OK 

Unt AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
;URITE COMMAND IS NOT BEING CHECKED 
.-HERE. IT IMS CHECKED IN C2TUXA 
:TSSR INCORRECT AFTER WRITE DATA 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CtERSOFT 
215 

WRTERR 
PKTSSR 



;BUMP RECORD SIZE 
;END OF RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 

TRAP 



TRAP CSCLPI 



C$CLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004757 010434 
103415 

016501 000000 

01270? 000200 
01000*. 

004737 020100 

104456 
000350 
047404 
011700 

104406 



JSR 
BCS 
MOV 
MOV 
MOV 
JSR 



TSSR(RS).R1 
fSSR.R2 
R0«R4 
PCFATCHK 



ERRHRD ERiiN0«T26RWN.PKTSSR 



;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
;6ET TSSR 

;SET UP EXPECTED TSSR 
:PACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



130$: CKLOOP 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 

216 

T26RWN 
PKTSSR 



TRAP CSCLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 045746 
010102 

052702 000002 
020102 



020100 



104456 

H 
15 



MOV T26BFR«^6,R1 

MOV R1 ,R2 

BIS «BIT1,R2 

CMP R1.R2 

BEQ 140$ 

JSR PCFATCHK 

ERRHRO ERRN0.T2680T,EXPREC 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECiED 

;OOES EXP = REC'O 

;BR, IF EQUAL (OK) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

:TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 217 
.WORD T26P0T 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REACAOS 



033212 

5586 0332U 
0332U 

5587 033216 
5588 

5589 
5590 
5591 
5592 
5593 
5594 
5595 

5596 033224 

5597 033230 

5598 033234 
559C 033236 
5t00 033242 
5601 033246 
5605 033252 

033252 
033254 
033256 
033260 
560o 033262 

5607 033262 

5608 033266 
5609 

561U 
5611 
5612 
5613 
5614 
5615 

5616 0332 A 

5617 033302 

5618 033306 

5619 033312 

5620 035316 

5621 033322 

5622 033326 

5623 033332 

5624 033334 

5625 033336 

5629 033342 
03334? 
033344 
033346 
033350 

5630 033352 
033352 

5631 033354 

5632 033360 
56i3 033362 

033366 
033370 

5636 033372 

5637 033374 



5634 
5635 



016344 
104406 

012737 000400 



012703 
004737 
103412 
016501 
012702 
004737 

104456 
000332 
046517 
016344 

013703 
013737 



012737 
012704 
010337 
010465 
004737 
0165C1 
012702 
020102 
001406 
004737 

104456 
000333 
047740 
311700 

104406 
013702 
010304 
162704 
C60204 
021403 
001410 
011401 



000001 
010140 

000000 
000200 
020100 



046102 
003072 



151001 
046050 
046056 
177776 
017120 
OUOOCO 
000200 



020100 
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140S: CKLOOP 
046102 NOV «2S6.,T26RSZ 



SEO 141 



:LOOP IF SELECTED 
:SET UP RECORD SUE 



.yORD EXPREC 
TRAP CSCLP1 



ISSUE SPACE RECORDS COfWAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT IS SETS DIRECTION - O'FORUARD 1>REVERSE 



14SS: 



150$: 



046052 



NOV «1.R3 

JSR PC.SPACE 

BCS 156s 

NOV TSSR(R5)«R1 

NOV «SSR^R2 

JSR PCFATCHK 

ERRHRD ERRN0,T26SC,EXPREC 



NOV T26RSZ.R3 
NOV FREE«T26RB 



; SPACE ONE RECORD PARANETCR 

.•CALL SPACE ROUTINE 

;BR. IF NO PROBLEN WITH SPACE COMMAND 

:6ET TSSR 

:SET UP EXPECTED TSSR 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.•POSITION (SPACE RECORDS) FAILED 

TRAP CSERHRD 
.WORD 218 
.WORD T26SC 
.WORD EXPREC 

•RECORD SIZE 

•STARTING READ BUFFER ADDRESS 



REREAD OATA.CVCsUACK.SUB COMMAND 



0460S0 



003072 
000400 



NOV 

165$: NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEO 
JSR 
ERRHRD 



170$. CKLOOP 

NOV 
NOV 

SUB 

173$: ADD 
CNP 
BEO 
MOV 



»151001,T26PK3 

#T26PK3,R4 

R3.T26SZ 

R4.TSDB(R5) 

PC.yAITF 

TSSR(RS).R1 

«SSR.R2 

R1.R2 

176$ 

PC.FATCHK 

ERRIIO«T26IIOC.PKTSSR 



.•REREAD DATA. CVCM.ACK. SUB COMMAND 
.SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
.ISSUE CONNAND 
;UAIT FOR SSR TO SET 
.-GET TSSR CONTENTS 
.'SET UP EXPECTED 
.-ARE THEY EQUAL 
;BR. IF OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 



:TSSR INCORRECT AFTER REREAD DATA 



FREE,R2 

R3-R4 

#2^6.. R4 

R2;R4 

(R4).R3 

18C$ 

(R4).R1 



TRAP 
.WORD 
.WORD 
.WORD 

.•LOOP IF SELECTED 

TRAP 

.-CURRENT BUFFER ADDRESS TO R2 
.-CURRENT RECORD SIZE 
.•FIRST LOCATION IN BUFFER 
.-SET UP POINTER 

.•CHECK DATA READ (R3:DATA ALSO) 
;BR. IF ALL IS WELL 
;RECD DATA 



CSERHRD 
219 
T26WDC 
PKTSSR 

C$CLP1 



J 
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•5638 
5639 
56A3 



564'. 
564 r 
5648 
5649 
5650 
5651 
5652 
5653 

5654 



5655 
5656 
5657 
5658 



033376 
033400 
033404 
033404 
033406 
03''^^0 
035412 
033414 
033414 
033416 
^^33420 

035s<:«» 
0334 '»6 
033430 
033434 
033440 
0334/.2 
033442 
033444 
033444 
033444 
033446 
033454 
033456 
033462 



010302 
004737 

104456 
000334 
047162 
016344 

104406 
005724 
160204 
020403 
001360 
005723 
010337 
022703 
001271 

104406 



104403 
023727 
002402 
004737 



020100 



046102 
000412 



NOV 

JSR 

ERRNRD 



180$: CKLOOP 



TST 

sue 

CNP 
BNE 
TST 
NOV 
CNP 
BNE 

CXLOOP 



190$: 



002170 
020152 



000031 



999$: 



ENDSUB 



CNP 
BLT 
JSR 



R3,R2 
PCFATCHK 

ERRN0,T26DTA«EXPREC 



(R4)* 

R2,R4 

R44R3 

17h 

(R3)* 

R3J26RS2 

#266. «R3 

145$ 



FATFL6.#25. 
999$ 

PC.CKDROP 



EXPECTED DATA 

INC AND CHECK FOR NORE THAN 25 ERRORS 
DATA BEAD NOT = WRITTEN 

TRAP C$£RHRD 
.WORD 220 
.WORD T26DTA 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 

;BUNP TO NEXT LOCATION 

.•CORRECT RECORDS SIZE VALUE 

:END OF RECORD YET 

;BR, IF NOT AT END OF RECORD 

;BUnP RECORD SIZE 

.•STORE RECORD SIZE 

;END OF RECORD YET 

;BR. IF nORc RECORDS TO READ 

.-LOOP IF SELECTED 

TRAP C$CLP1 

;»»»»»» END SUBTEST »»»»»» 
L10050: 

TRAk C$ESUB 
:IS ERROR COUNT AT 25 
;BR« IF LESS THAN 25 
;TRY TO DROP THE UNIT 
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5660 
566-! 
5662 
5663 
566A 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 

5693 033462 
033462 

033'.62 104402 

5694 033464 004737 050640 

5695 033470 005037 046076 

5696 033474 004737 050732 

5697 033S00 004737 050774 
5698 

5699 
'^700 
5701 
5702 
5703 
5704 

5705 033504 004737 016644 

5706 033510 103407 

5707 033512 004737 020100 

5711 033516 010001 

5712 033520 
033520 104455 
033522 000335 
033524 003550 
033526 011666 

5713 033530 
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TEST 2. SUBTEST 3 

VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH 0PP=1 
(READ REVERSE, SPACE FORWARD) AND SUB^O OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
DATA CONTENT: THE FIRST FOUR BYTES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
TEST RECORD, THE FOLLOWING SEQUENCE fS EXECUTED. 

1. THE REREAD PREVIOUS COMMAND WITH 0PP«1 IS 1SSL*ED 
AND THE RESULTS CHECKED 

2. A READ FORtlARD COMMAND IS THEN ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 

POSITIONED PROPERLY AFTER THE REREAD PREVIOUS 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 

THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET 
TO THE LENGTH OF THE EXPECTED RECORD, SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



SEQ US 



BGNSUB 



JSR 
CLR 
JSR 
JSR 



PC,T26REST 
T26CNT 
PC,T26RT2 
PC,T26RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.3: 

TRAP C$BSUB 

;SET COMMAND PACKET 
: CLEAR TAPE RECORD COUNTER 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
*****•********♦****♦♦*****♦♦****•****♦♦*♦♦**♦**♦****♦♦♦♦♦*♦*♦♦♦*♦♦ 



JSR PC-SOFINIT 

BCS 20i 

JSR PCFATCHK 

MOV R0.R1 

ERRDF ERRNO,SFIERR.SFIMSG 



20S: 



:D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.CONTENTS OF TSSR REGISTER 

.FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 221 
.WORD SFIERR 
.WORD SF IMSG 



CZTl'VAO TU80 FRONT END PRT 
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SEQ U4 



57U 
5715 
5716 
5717 
5718 
5719 
5720 
5721 
5722 
5725 
5724 
5725 

5730 



5731 

5732 
5735 
5734 
5735 
5736 
5737 
5738 
5739 
5740 
5741 
5742 
5743 
S744 
5748 



5749 

5750 
5751 
5752 
5753 
5754 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
57f6 



033530 012704 045720 



033534 
033540 

053542 
C53566 
055550 
033550 
035552 
033554 
035556 
053560 
033560 



033620 
053624 
055626 
033632 
053634 
033636 
033642 
033642 
033644 
033646 



004737 
103407 
004757 
010001 

104456 
000556 
004754 
011666 

104406 



010332 
020100 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000340 
047115 



0^5746 
000002 

020100 



NOV fT26PACKET,R4 .-SUBROUTINE NEEDS PACKET ADDRESS 

****************************************** ************************ 

WRITE CHARACTERISTICS COfWAND (CALL TO URTCHR) 

****************************************************************** 



26S: 



JSR PC.URTCHR 

BCS 26$ 

JSR PC.FATCNK 

nov RO R1 

ERRHRD ERRNCUniNSCSFinSG 



CKLOOP 



; ISSUE WRITE CHARACTERISTICS 

;BR, IF COfflAND ISSUED OK 

;ir:C AND CHECK FOR MORE THAN 25 ERRORS 

:SAVE CONTENTS OF TSSR 

:URITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



CSERHRO 

222 

WRTNSG 
SFinSG 



CSCLPI 



****************************************************************** 
ISSUE REWIND COWfAND TO SELECTED TAPE DRIVE 



055562 


004737 


010434 


JSR 


055566 


1C3413 




BCS 


033570 


016501 


OOCOOO 


mv 


035574 


0127C2 


000200 


nov 


055600 


010P04 




MOV 


033602 


004737 


020100 


JSR 


053606 






ERRHRD 


033606 


104456 






055610 


000357 






055612 


047404 






053614 


011700 






055616 






SOS: CKLOOP 


035616 


104406 







PC.REWINO 
30i 

TSSR(R5),R1 
#SSR,R2 
R0,R4 
PC.FATCHK 

ERRN0«T26RWN,PKTSSR 



.'CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
:6ET TSSR 

;SET UP EXPECTED TSSR 
.PACKET ADDRESS SET UP 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
:RFWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
223 
T26RWN 
PKTSSR 



TRAP CSCLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



MOV T26BFP*6.Rt 

MOV R1 .R2 

BIS #BIT1.R2 

CMP R1.R2 

BEQ 40i 

JSR PC.FATCHK 

ERRHRD ERRN0,T26R0T.EXPREC 



.•PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

.-DOES EXP = REC'D 

:BR. IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 2S ERRORS 

.-TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 224 
.WORD T26B0T 



rZTUYAO TU80 FRONT END PRT 
TEST ?: REREADS 



C 12 
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SEO KS 



5767 

5768 

5769 

5770 

5^71 

5772 

5773 

5774 

5775 

5776 

5777 

5778 

■^779 

5780 

5781 

5782 

5783 

578A 

5785 

5786 

5787 

:788 

5789 

5790 

5791 

5795 

5796 

5797 

5798 



5799 

5800 
•^801 
5802 
5803 
5804 
5805 
5806 
5807 
5808 
5809 
5810 
5811 
5812 
5813 
58U 
5815 
5816 
5817 
S818 
58?2 



033650 
033652 
033652 
033654 
033660 



033666 
033674 
033700 
033700 
033702 
033706 
033712 
033720 
033726 
033732 
033736 
033742 
033746 
033750 
033752 



033756 
033756 
033760 
033762 
033764 
033766 
033766 
033770 
033772 
0337'6 
034000 
034002 
034002 



034006 
034012 
034014 
034020 
034024 
034026 
0340 32 



016344 
104406 

012703 000400 

013737 003072 046052 



40$: 



CKL00r> 

nov 

NOV 



.-LOOP If SELECTED 



#256., R3 
FREE,T26RB 



.WORD 
TRAP 



.•RECORD SIZE 
.•STARTING WRITE BUFFER ADDRESS 



EXPREC 
CfCLPI 



012737 140005 

012704 046050 

010300 

004737 020372 

010337 046056 

013777 046076 

062737 000001 

010465 177776 

004737 017120 

016501 000000 

012702 000200 
020102 
001406 

004737 020100 



104457 
000341 
00501 1 
011700 

104406 
005723 

022703 000414 

001401 

000737 

005037 C'»6C76 



004737 010434 
103413 

016501 000000 

012702 000200 
010004 

004737 020100 



.•WRITE DATA.CVC-I.ACK COIWAND 



046050 



147152 
046076 



65S: 



NOV f1 40005. T26PK3 

NOV «T26PK3,R4 

NOV R3.R0 

JSR PC.FILLNEN 

NOV R3.T26SZ 

NOV T26CNT.aFREE 

ADO #1.T26CNT 

NOV R4.TSDB(R5) 

JSR PC.WAITF 

NOV TSSR(R5).R1 

NOV #SSR.R2 

CNP R1.R2 

BEQ 75i 

JSR PC.FATCHK 



ERRSOFT ERRNO«WRTERR.PKTSSR 



75$: 



120$: 



CKLOOP 

TST 
CNP 
BEQ 
BR 

CLR 



(R3)* 
#268.. R3 
120$ 
65$ 

T26CNT 



.•WRITE DATA.CVC-1.ACK CONNAND 
.SET UP R4 WITH PACKET ADDRESS 

;SET PATTERN IN CORRECT REGISTER 
.•FILL NENORY WITH RECORD SIZE 
.-SET UP RECORD SIZE IN PACKET 
:NOVE TAPE RECORD NUNBER TO BUFFER 
:NUNBER READY FOR NEXT RECORD 
.•ISSUE CONNAND 
.-WAIT FOR SSR TO SET 
.GET TSSR CONTENTS 
.SET UP EXPECTED 
.•ARE THEY EQUAL 
;6R. IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
.-WRITE CONNAND IS NOT BEINii CHECKED 
.HERE. IT WAS CHECKED IN CZTUXA 
;TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERSOFT 

.WORD 

.WORD 

.WORD 

.•LOOP IF SELECTED 

TRAP 

;BUNP THE RECORD SIZE 
.•NAXINUN SIZE YET 
:BR. IF AT END OF WRITE SEQUENCE 
.WRITE NORE RECORDS 

.-SET RECORD COUNTER BACK TO ZERO 



225 
WRTERR 
PKTSSR 

CSCLP1 



.-ISSUE REWIND CONNAND TO SELECTED TAPE DRIVE 



JSR PC.REWIND 

BCS 136$ 

NOV TSSR(R5).R1 

NOV #SSR,R2 

NOV R0.R4 

JSR PC.FATCHK 

ERRHRD ERRN0.T26RWN.PK1SSR 



CALL TAPE REWIND CONNAND 
BR. IF NO PROBLEN 
GET TSSR 

SET UP EXPECTED TSSR 

PACKET ADDRESS SET UP 

INC AND CHECK FOR NORE THAN 25 ERRORS 

REWIND NOT ACCEPTED 



C2TOVA0 TU80 FRONT END PRT 
TEST 2: REREADS 



05A032 
05A034 
034036 
034040 
5823 034042 
034042 

5824 
5825 
5826 
5827 
5828 
5829 
5830 

5831 034044 

5832 034050 

5833 034052 

5834 034056 

5835 034060 
5H36 034062 

5840 034066 
034066 
034070 
034072 
034074 

5841 054076 
034076 

5842 
5843 
5844 
5845 
5846 
5847 
5848 
5849 

5850 03410C 
5351 034104 

5852 034110 

5853 034114 
5854 

5855 
5856 
5857 
5858 
5859 
5860 

5861 034122 

5862 034130 

5863 034114 

5864 03; 140 

5865 034144 

5866 034150 

5867 034154 

5868 034160 

5869 034162 

5870 034164 
5874 0341 70 

034170 
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D 12 
PAGE 86-3 



SEO 146 



104456 
000342 
047404 
01 1 700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000343 
047115 
016344 

104406 



012703 
004737 
012703 
013737 



012737 
0'2704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 



13CS: CKLOOP 



;LOOP IF SELECTED 



TRA? 
.WORD 
.WOitC 
.WORD 



CSE))HRD 
226 

T26RUN 
PKTSSR 



TRAP C»CLP'. 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



045746 
000002 

020100 



nov 
nov 

BIS 
C«P 
BEQ 
JSR 

ERRHRD 



140S: CKLOOP 



T26BFR*6,R1 

R1,R2 

«BITnR2 

R1.R2 

146s 

PCFATCHK 

ERRNO«T26BOT«EXPREC 



;PICK UP XSTO 

;SET UP EXPECTED 

.SET BOT BIT IN EXPECTED 

.-DOES EXP - REC'D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.UORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



CSERHRD 
227 
T26B0T 
EXPREC 



C$CLP1 



•ISSUE SPACE RECORDS CONNANO - VALUE IN R3 SETS NUMBER OF RECORDS 
:BIT 15 SETS DIRECTION - O^FORWARD I'REVERSE 



000001 
010140 
000400 
003072 



nov 

JSR 

nov 
nov 



#1«R3 
PC. SPACE 
f2S6.,R3 
FREE,T26RB 



; SPACE 1 RECORD FORWARD 
; SPACE CALL 
'RECORD SIZE 

•STARTING READ BUFFER ADDRESS 



0460S2 150$ 

•REREAD DATA«CVC-1,ACK. OPP CONNAND 



161001 
046050 
046056 
177776 
017120 
000000 
000200 



020100 



0460S0 



nov fl61001,T26PK3 

165S: nov fT26PK3,R4 

nov R3,T26SZ 

nov R4,TSDB(R5) 

JSR PCUAITF 

nov TSSR(R5),R1 

nov #SSR.R2 

cnp Ri .r2 

BEQ 170$ 

JSR PCFATCHK 

ERRHRD ERRN0,T26RRG.PKTSSR 



;REREAD DArA,CVC>UACK, OPP CONNAND 
;SET UP R4 WITH PACKET ADDRESS 
.SET UP RECORD SIZE IN PAC^'ET 
.ISSUE COMMAND 
.WAIT FOR SSR TO SET 
.-GET TSSR CONTENTS 
.SET UP EXPECTED 
.ARE THEY EQUAL 
*BR IF OK 

;lHt AlCD CHECK FOR NORb THAN 25 bRRORS 
;TSSR INCORRECT AFTER REREAD DATA 

TRAP CSERHRD 



CZTUYAO TU60 FRONT END Pf)T C 
TEST 2: REREADS 
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5875 



034172 
034174 
034176 
034200 



5876 



00 
02 



034 

034 _ 
5877 03420< 
5878 
5879 
5880 
5881 



000344 
046422 
011700 

104406 
005723 
062737 



000001 046076 



170$: CKLOOP 

TST 
ADD 



(R3)* 
#1,T26CNT 



;READ DATA, CVCsl, ACK COmAND 



5882 








5883 034212 


A4I 

012737 


140001 


A J ^ A^ A 

046050 


588A 034220 


A« A 

010337 


046056 




5885 034224 


010465 


177776 




5886 034230 


AA ^ 

0047V 


A4 ^4 

017120 




5887 034234 


A4 d ^ A 4 

016501 


AAA AAA 

oooooc 




^AAA AV^'^^A 

5888 034240 


012702 


AAA'^AA 

000200 




r AAA 4 £ 

5889 034244 


020102 






5890 034246 


001406 






5891 034250 


AA t 

004737 


A'^A 4 AA 

020100 




r A A^ A V 4 ^ ff* ^ 

5895 034254 








034254 


104456 






054256 


000345 






034260 


A A f 4 A / 

005104 






054262 


01 1 700 






5896 034264 








034264 


1 04406 






589r 0>4266 


01 770 1 


146600 




5898 054272 


A1 7 7A*) 

015702 


A/ ^A7X 

046C76 




5899 034276 


A^AI 

020102 














5901 054302 


004737 


020100 




5905 034306 








034306 


104456 






034310 


000346 






034312 


046106 






034314 


016344 






">906 034316 
0i'3l6 








104406 






5907 034320 


02270i 


000412 




5908 034324 


00 < 401 






5909 034326 


000o72 






5910 034330 








034330 








034330 


104403 






5911 034352 


033727 


002170 


000031 


5912 034340 


002402 






591? 034342 


004737 


020152 




5914 034346 









NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



19SS: CKLOOP 



200s : 



999$: 



#1 40001. T26PK3 

R3,T26S2 

R4.TSDB(RS) 

PCWAITF 

TSSR(RS),R1 

#SSR.R2 

R1.R2 

19S$ 

PC.FATCHK 
ERRNO,RDERR,PKTSSR 



NOV 
NOV 
CNP 
BEO 
JSR 



aFREE,R1 
T26CMT«R2 
R1.R2 
19H 

PCFATCHK 



ERRHRD ERRNO«T26UNG«EXPREC 



197$: CKIOOP 



CNP 
BEQ 
BR 

ENDSUB 



f266..R3 

200$ 

150$ 



CNP FATFL6,f25. 

BIT 999$ 

JSR PC«CK0ROP 



.yORD 228 
.WORD T26RRG 
.WORD PKTSSR 

.-LOOP IF SELECTED 

TRAP C$CLP1 

:BUnP RECORD SIZE 

;BUNP TAPE RECORD COUNTER 



READ DATA. CVC^I, ACK CONNAND 
SET SIZE INTO PACKET 
ISSUE READ DATA CONNAND 
WAIT FOR SSR 
PICK UP THE TSSr 
SET UP EXPECTED 
IS THE TSS? OK 
BR. IF TSSR OK (GOOD) 
INC AND CHECK FOR F«ORE THAN 25 ERRORS 
READ DATA CONNAND FAILED 

TRAP 



;LOOP IF SELEC1ED 



.WORD 
.WORD 
.WORD 



CSERHRD 
229 
RDERR 
PKTSSR 



TRAP C$CLP1 



FIRST WORD FRON READ BUFFER 
SET UP erPECTED 
IS TAPE POSITION CORRECT 
KEEP GOING POSITION OK 
INC AND CHECK FOR NORE THAN 25 ERRORS 
TAPE POSITION INCORRECT 

TRAP C$ERHRD 
.WORD 230 
.WORD T26WNG 
.WORD EXPREC 



TRAP C$CLP1 

;AT NAX SIZE YET 
;BR. IF AT END OF THE SUBTEST 
;KEEP GOING NORE RECORDS 
;»»»»»» END SUBTEST »»»»»» 
LI 0051: 

TRAP C$ESU6 
;IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
:TRY TO DROP THE UNIT 



F 12 



CZTUYAO TU80 FRONT END PRT 
TEST 2: REREADS 



5916 
5917 
5918 
5919 
5920 
5921 
5922 
592i> 
592A 
5925 
5926 
5927 
5928 
5929 
5930 
5951 
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TEST 2, SUBTEST 4 



03A3A6 
054346 
034546 

5932 034350 

5933 034354 

5934 034560 
5955 034364 
5956 

5957 
5938 
5939 
5040 
5941 
5942 

5943 034370 

5944 054374 

5945 054576 

5949 054402 

5950 054404 
054404 
054406 
054410 
034412 

5951 0344U 
5952 

5955 0344U 

5954 

5955 

5956 

5957 

5958 

5959 

5960 

5961 054-20 

5962 054424 
5965 054426 

5967 054452 

5968 054454 
054454 
054456 
054440 
0544 12 



104402 
004757 
005057 
004757 
004737 



050640 
046076 
050732 
050774 



016644 
020100 



004"'37 
103407 
004737 
010001 

104455 
000347 
003550 
011666 



012704 045720 



004737 
103407 
004737 
010001 

104456 
000550 
004754 
011666 



010332 
020100 



VERIFIES THAT THE REREAD PREVIOUS COMNAMO WITH OPP-1 
AND SyG=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
THE SAKE THAT IS USED IN SUBTEST 3, BUT IT IS 
VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
SWAPPED BYTES. 



B6NSUB 



JSR 
CLR 
JSR 
JSR 



PC J26REST 
T26CNT 
PC,T26RT2 
PC,T26RT3 



:»»»»»» BEGIN SUBTEST »»»»»» 
T2.4: 

TRAP C$6SUB 

:SFT COMMAND PACKET 
; CLEAR TAPE RECORD COUNTER 
:SET UP OTHER CCMMAND PACKET 
:SET UP OTHER COMMAND PACKET 



****************************************************************** 

ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



JSR PC.SOFINIT 

BCS 20i 

JSR PCFATCHK 

MOV RO.RI 

ERRDF ERRNO,SFIERR,SFIMSG 



;D0 INITIALIZE ON CONTROLLER 
:BR IF INIT IMS OK 

:INC AND CHECK FOR MORE THAN 2S ERRORS 
; CONTENTS OF TSSR REGISTER 
; FATAL ERROR TSSR WAS NOT OK 



20$: 



TRAP 
.WORD 
.WORD 
.WORD 



CSERDF 

231 

SFIERR 
SFIMSG 



NOV «T26PACICET«R4 



.'SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS CQMIAND (CALL TO URTCHR) 



JSR PC.WRTCHR 

BCS 26i 

JSR PCFATCHK 

MOV RO.RI 

ERRHRD ERRNO.URTMSG.SFIMSG 



; ISSUE URITE CHARACTERISTICS 

;BRe IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.-SAVE CONTENTS OF TSSR 

;URITE CHARACTERISTISC FAILED 

TRAP CSERHRD 
.WORD 232 
.WORD WRTMSG 
.WORD SFIMSG 



CZTUYAO TU80 FRONT END PRT 
TEST 2: REREADS 
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SEQ K9 



5969 

5970 
5971 
^972 
5973 
5974 
5975 
59^6 



03AA44 
034444 



104406 



26S: 



CKLOOP 



.LOOP IF SELECTED 



TRAP C$CLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



5977 034446 


004737 


010434 




5978 034452 


103413 




BCS 


5979 034454 


016501 


000000 


mv 


5980 034460 


012702 


000200 


NOV 


5981 034464 


010004 




NOV 


5982 034466 


004737 


020100 


JSR 


5986 034472 






ERRHRD 


034h 72 


104456 






034474 


000351 






034476 


047404 






034500 


011700 






5987 034502 






30S: CKLOOP 


034«;C2 


1044U6 







PC.REVIND 
30i 

TSSR(RS),R1 
#SSR,R2 
R0.R4 
PCFATCHK 

ERRN0,T26RUN.PKTSSR 



;CALL TAPE REWIND COMMAND 
;BR. IF NO PROBLEM 

;GET TSSR 

;SET UP EXPECTED TSSR 
.•PACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
.'REWIND NOT ACCEPTED 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

T26RWN 
PKTSSR 



5988 
5989 
599C 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5990 
6000 
6004 



hLh)5 

6006 
6007 
6008 
6009 
6010 
6011 
6012 
6013 
6014 
6015 
6016 
6017 
60'. 8 
6019 
6020 



TRAP CfCLPI 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



034504 
034310 
034512 
034516 
034520 
034S22 
034526 
034526 
034530 
034532 
034 5 34 
034536 
034536 
034540 
034544 



013701 
010102 
052702 
020102 
001406 
004737 

1044S6 
000^52 
047115 
0)6344 

104406 
012703 
013737 



045746 
000002 

020100 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 



T26BFR>6,R1 
R1.R2 
«BIT1.R2 
R1,R2 
40i 

PC.FATCHiC 



ERRHRD ERRII0,T26B0T,EXPREC 



40$: 



000400 
003072 



046052 



CKLOOP 

MOV 
MOV 



#256. «R3 
FREE,T26RB 



;PICK UP XSTO 

.SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

;DOES EXP ^ REC*D 

;BR. IF EQUAL (OK) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFlcR REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

:LOOP IF SELECTED 

TRAP 

.•RECORD SIZE 

.•STARTING WRITE BUFFER ADDRESS 



CSERHRD 
234 
T26B0T 
EXPREC 

C»CLP1 



WRITE DAFA,CVC«1,ACK COMMAND 



034S52 
034560 
034564 
034564 
034566 
034 5 72 



012737 140005 

012704 046050 

010300 

004737 020372 

010337 046056 



046050 



6SS: 



MOV #140005«T26PK3 

MOV fT26PK3,R4 

MOV R3,R0 

JSR PC.FILLMEM 

MOV R3.T26SZ 



.WRITE DATA«CVC3l.ACK COMMAND 
.SET UP R4 WITH PACKET ADDRESS 

.SET PATTERN IN CORRECT REGISTER 
.•FILL MEMORY WITH RECORD SIZE 
.-SET UP RECORD SIZE IN PACKET 



C 2 TUT AO TU80 FRONT END PRT C 
TFST 2: REREADS 
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SEO ISO 



6021 034576 

6022 034604 

6023 034612 

6024 034616 

6025 054622 

6026 034626 

6027 034652 
6026 05465n 
6029 034636 
6055 

6054 
6055 

6056 054642 
05A6A? 
054644 
054646 
054650 

6057 054652 
054652 

6058 054654 

6059 034656 

6040 054662 

6041 054664 

6042 054666 
6045 054666 
6044 

6045 
6046 
6047 
6048 
6049 
6050 

6051 034672 
605? 034676 

6053 034700 

6054 034704 

6055 034710 

6056 034712 

6060 034716 
034716 
034720 
034722 
034724 

6061 034726 
034/26 

6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
6070 

6071 . 

6072 0 

6073 0 




013777 
062737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



046076 
000001 
177776 
017120 
000000 
000200 



020100 



146266 
046076 



104457 
000353 
005011 
011700 

104406 
005723 

022703 000412 

001401 

000737 

005037 046076 



75S: 



120$: 



NOV T26CllT,aFREE 

ADD «1,T26CliT 

NOV R4,TSDB(RS) 

JSR PCWAITF 

NOV TSSR(RS)«R1 

NOV fSSR.R2 

CNP R1.R2 

BEQ 7Si 

JSR PC.FATCNK 



ERRSOFT ERRNO.URTERR.PKTSSR 



CKLOOP 

TST (R3)* 

CNP #266. ,R3 

BEQ 120$ 

BR 6S$ 



;NOVE TAPE RECORD NUNBER TO BUFFER 
;NUNB£R READY FOR NEXT RECORD 
.•ISSUE CONNAND 
;WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
*BR IF OK 

]lHt AND CHECK FOR NORE THAN 25 ERRORS 
:SOFT ERROR GENERATED BECAUSE THE 
;URITE CONNAND IS NOT BEING CHECKED 
;HERE. IT WAS CHECKED IN CZTUXA 
;TSSR INCORRECT AFTER REREAD DATA 



:LOOP IF SELECTED 



TRAP 
.yORD 
.WORD 
.WORD 



'iERSOFT 
235 

WRTERR 
PKTSSR 



TRAP C$CLP1 



CLR 



T26CNT 



;BUHP THE RECORD SI2E 
.-NAXINUN SIZE YET 
:BR« IF AT END OF WRITE SEQUENCE 
; WRITE NORE RECORDS 

:SET RECORD COUNTER BACK TO ZERO 



; ISSUE REWIND CONNAND TO SELECTED TAPE DRIVE 



004737 010454 
103413 

016501 000000 

012702 000200 
010004 

004737 020100 

104456 
000354 
047404 
011700 

104406 



JSR 
BCS 
NOV 
NOV 
NOV 
JSR 
ERRHRD 



130$: CKLOOP 



PC.REWINO 
136$ 

TSSR(RS>.R1 
#SSR.R2 
R0,R4 
PC.FATCHK 

ERRN0,T26RWN,PKTSSR 



;CALL TAPE REWIND CONNAND 
:BR. IF NO PROBLEN 
;6ET TSSR 

;SET UP EXPECTED TSSR 
;PACKET ADDRESS SET UP 
:INC AND CHECK FOR NORE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
236 
T26RWN 
PKTSSR 



TRAP C$CLP1 



READ NESSA6E BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 
010102 
052702 
020102 
001406 



04S746 
000002 



NOV 
NOV 
BIS 
CNP 
BEQ 



T26BFR«^6.R1 

«BiT?.R2 

R1-R2 

146$ 



:PICK UP XSTO 

:SET UP EXPECTED 

:SET 60? BIT IN EXPECTED 

:OOES EXP = REC*D 

:3R, IF EQUAL (OK) 



CZTUVAO TU80 FRONT END PRT C 
TES* 2: REREADS 
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6074 
6078 



6079 

6080 
6081 
6082 
6085 
608A 
6085 
6086 
6087 
6088 
6089 
6090 
6091 
6092 
6093 
609A 
6095 
6096 
6097 
6098 
6099 
6100 
6101 
6102 
6103 
6104 
6105 
6i06 
6107 
6108 
6112 



6115 

61U 
6115 
6116 
6117 
6118 
6119 
6123 



6124 



034746 
034752 
034752 
034754 
054756 
054760 
054762 
054762 



034764 
034770 
034774 
035000 



035006 
035014 
035020 
035024 
035030 
035034 
035040 
035044 
035046 
035050 
035054 
035054 
035056 
035060 
055062 
055064 
035064 
035066 
035072 
035076 
035100 
035102 
035104 
035110 
035110 
035112 
035114 
03^116 
035120 
035120 



004737 020100 

104456 
000355 
047115 
016344 

104406 



JSft 

ERRHRO 



140S: CKLOOP 



PC.FATCHK 

ERRNO.T26eOT«EXPREC 



;1NC AND CHECK FOR MORE THAN 25 ERRORS 
.•TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP K SELECTED 

TRAP 



^I^RHRD 

T26e0T 
EXPREC 



CSCLP1 



; ISSUE SPACE RECORDS CONHAND - VALUE IN R3 SETS NUMBER OF RECORDS 
:BIT 15 SETS DIRECTION - O-FORUARO 1 -REVERSE 



012703 000001 

004737 010140 

012703 000400 

013737 003072 



046052 150S: 



NOV 
JSR 
NOV 
NOV 



#1.R3 
PC. SPACE 
#2^6., R3 
FREE,T26RB 



:SET UP SPACC FORWARD 1 
; ISSUE SPACE CONNAND 
;RECORD SIZE 

; STARTING READ BUFFER ADDRESS 



.•REREAD DATA.CVC»1.ACK, OPP COMMAND 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000356 
046325 
011700 

104406 
017701 
0137C2 
000302 
020102 
001406 
004737 

104456 
000357 
0461 C« 
016344 

104406 



171001 
046050 
046056 
177776 
017120 
000000 
000200 



020100 



046050 



146000 
046076 



020100 



NOV 

165S: NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEO 
JSR 

ERRNRD 



170$; CKLOOP 

NOV 

NOV 

SWAB 

CNP 

BEO 

JSR 

ERRNRD 



190$: CKLOOP 



#171001.T26PK3 

#T26PK3.R4 

R3.T26Si 

R4.TSDB(R5) 

PC.UAITF 

TSSR(R5).R1 

#SSR.R2 

R1.R2 

176$ 

PC.FATCHK 

ERRN0,T26RRF.PKTSSR 



.•REREAD DATA.CVC-l.ACK. OPP CONMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
.ISSUE COMMAND 
;WAIT FOR SSR TO SET 
.-GET TSSR CONTENTS 
.-SET UP EXPECTED 
.•ARE THEY EQUAL 
*BR IF OK 

;In6 AND CHECK FOR MORE THAN 25 ERRORS 
.TSSR INCORRECT AFTER REREAD DATA 



aFREE.RI 
T26CNT.R2 

R1.R2 
196$ 

PC.FATCHK 

ERRNO.T26WNG. EXPREC 



ERHRD 
8 

T26RRF 
PKTSSR 

C$CLP1 



TRAP 
.WORD 
.WORD 
WORD 

.•LOOP IF SELECTED 

TRAP 

.•FIRST WORD FROM READ BUFFFR 
;SET UP EXPECTED 
:SWAP BYTES IN EXPECTED 
:IS TAPE POSITION CORRECT 
;KEEP GOING POSITION OK 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
.•TAPE POSITION INCORRECT 

TRAP C$ERHRD 
.WORD 239 
.WORD T26WNG 
.WORD EXPREC 

TRAP C$CLP1 



C2TUVA0 TU80 FRONT END PftT C 
TEST 2: REREADS 



035122 
055124 



61 5A 035132 
61!^ 035K0 

6136 035K4 

6137 035150 
6158 035154 

6139 035160 

6140 035164 

6141 035166 

6142 035170 

6146 035174 
035174 
035176 
035200 
035202 

6147 035204 
035204 

6148 0Vi|06 

6149 055212 

6150 055216 

6151 055220 

6152 055222 

6156 035226 
055226 
055250 
055252 
0552" 

6157 0552__ 
055256 

6158 Q55240 

6159 055 

6160 055 
055 



6161 
6162 



6165 
6164 
6165 



!44 
!46 
50 
50 
50 




005725 

062757 000001 



6166 055266 



104406 
022705 
001401 
000654 



104405 
025727 

m 



J 12 

flACRO N1200 29-PUR-85 15:45 PAGE 87-4 
046076 



SEQ 152 



TST 
ADD 



(R5)« 
f1.T26CNT 



.-NEXT RECORD SIZE 

:8UNP TAPE RECORD COUNTER 



READ DATA, CVCsl, ACK COfWAND 



012737 140001 

010337 046056 

010465 177776 

004737 017120 

016501 000000 

012702 000200 
020102 
001406 

004737 020100 

104456 
000360 
046256 
011700 

104406 

017701 145660 
013702 046076 
020102 
001406 

004757 020100 

104456 
00056: 
046106 
016544 



046050 



000410 



002170 
020152 



NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEO 
JSR 

ERRHrD 



21 SS: CKLOOP 

NOV 
NOV 
CHP 
BEQ 

JSR 

ERRHRD 



217$: CKLOOP 

CNP 
BEQ 
BR 



220$: 



000051 



999$: 



ENDSU8 



CHP 
BIT 
JSR 



#140001 .T26PK5 

R5.T26Sr 

R4,TSDB(RS) 

PC.WAITF 

TSSR(R5),R1 

«SSR.R2 

R1.R2 

21$$ 

PC.FATCHK 

ERRNO«T26R0F«PKTSSR 



BFREE.Rl 
T26CNT,R2 
R1.R2 
21 H 

PCFATCHK 

ERRN0,T26UN6,EXPREC 



f264.,R5 



0$ 



FATFL6,f2S. 
999$ 

PCCKDROP 



:READ DATA. CVC«1, ACK CONNAND 

:SET SIZE INTO PACKET 

.ISSUE READ DATA CONNAND 

;WAIT FOR SSR 

;PICK UP THE TSSR 

;SET UP EXPECTED 

;IS THE TSSR OK 

;8R, IF TSSR OK (GOOD) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:READ DATA CONNAND FAILED 

TRAP C$ERHRD 
.WORD 240 
.WORD T26RDF 
.WORD PKTSSR 

.-LOOP IF SELECTED 

TRAP C$CLP1 
;FIRST WORD FRON READ BUFFER 
;SET UP EXPECTED 
;IS TAPE POSITION CORRECT 
.'KEEP GOING POSITION OK 
:INC AND CHECK FOR NORE THAN 25 ERROn.. 
;TAPE POSITION INCORRECT 

TRAP C$ERHfD 
.WORD 241 
.WORD T26UNG 
.WORD EXPREC 

TRAP C$CLP1 

;AT NAX SIZE YET 

;BR, IF AT END OF THE SUBTEST 

;KEEP GOING NORE RECORDS 

;»»»»»» END SUBTEST »»»»»» 
L10052: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
:TRV TO DROP THE UNIT 



K 12 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 



6168 
6169 
6170 
6171 
6172 
6173 
6174 
6175 
6176 
6177 
6178 
6179 
6180 
6181 
6182 
6183 
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TEST 2. SUBTEST 5 

VERIFIES THAT A REREAD PREVIOUS COMMAND REXblHQ A 
RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
LONG (RLL) BIT SET RESULTS ARE .ERIFIED FOR BOTH 
STATES OF OPP (0 AND 1). 



SEO 1S3 



6184 
618S 
6186 
6187 
6188 
6189 
6190 
6191 
6192 
6193 
6194 
6195 
6196 
6200 
6201 



6202 
6203 
6204 
6205 
6206 
6207 
6208 
6209 
6210 
6211 
6212 
6215 
62K 
6218 
6219 



6220 



035266 
035266 
035266 
035270 
035274 
03S30O 



104402 
004737 
004737 
004737 



050640 
050732 
050774 



6GNSUB 



JSR 
JSR 
JSR 



PC,T26REST 
PC.T26RTf 
PC.T26RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.5: 

TRAP CSBSUB 

;SET COMMAND PACKET 

: SET UP OTHER COMMAND PACKET 

:SET UP OTHER COMPMND PACKET 



ISSUE CONTROLLER '"SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



035304 
035310 
035312 
035316 
035320 
035320 
035322 
035324 
035326 
035330 



004737 
103407 
004737 
010001 

104455 
000362 
003550 
011666 



016644 
020100 



JSR 
BCS 
JSR 
MOV 
ERRDF 



PC.SOFINIT 
20i 

PCFATCHK 
RO.RI 

ERRN0,SFIERR,SFIHS6 



20$: 



035330 012704 045720 



NOV 



#T26PACKET,R4 



;D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 

;INC AND CHECK FOR MOkE THAN 25 ERRORS 

CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP CSEROF 
.WORD 242 
.WORD SFIERR 
.WORD SF IMSG 



.'SUBROUTINE NEEDS PACKET ADDRESS 



•WRITE CNARACTERISTICS COHHAND (CALL TO WRTCHR) 



035354 
055540 
055542 
055546 
055550 
055350 
055352 
055554 
035356 
035360 



004737 
103407 
004737 
010001 

104456 
000363 
004754 
011666 



010332 
020100 



26S: 



JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 



PC.URTCHR 
26i 

PCFATCHK 
R0,R1 

ERRNO.WRTNSG.SFIMSG 



: ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUFD OK 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
.-SAVE CONTENTS OF TSSR 
:URITE CHARACTERISTIC FAILED 



.LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
243 

URTMSG 
SF IMSG 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: RCREAOS 
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SEQ 154 



6221 
6222 
6223 
6224 
6225 



035360 104406 



6228 

6231 
6232 
6233 
6237 



6238 

6239 
6240 
6241 
6242 
6243 
6244 
6245 
6246 
6247 
6248 
6249 
6250 
6251 
6255 



6256 

6257 
6258 
6259 
6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6268 
6269 
6270 
6271 
6272 



035362 
035366 
035370 
035374 
035400 
035402 
035406 
035406 
035410 
035412 
035414 
035416 
035416 



035466 
C3547; 
035^'^3 
035500 
035504 
035510 
0^5514 



012737 
012704 

010337 
010465 
004737 
016501 



TRAP C»CLP1 



.-ISSUE REWIND CWWANO TO SElECTFO TAPE DRIVE 



004737 010434 
10341 S 

016501 000000 

012702 000200 
010004 

004737 020100 

104456 
000364 
047404 
011700 

104406 



JSR 
BCS 
NOV 
NOV 
NOV 
JSR 

ERRHRO 



30$: CKLOOP 



PC.REVIND 
30i 

TSSR(RS)«R1 
#SSRfR2 
R0,R4 
PCFATCHK 

ERRN0«T26RIM,PKTSSR 



:CALL TAPE REWIND CONMAND 
;8R. IF NO PROBLEM 

;GET TSSR 

;SET UP EXPECTED TSSR 
.•PACKET ADDRESS SET UP 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
.-REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
WORD 

.-LOOP IF SELECTED 

TRAP 



CSERHRD 
244 

T26RWN 
PKTSSR 



C$CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



035420 


013701 


045746 


035424 


010102 




035426 


052702 


000002 


035432 


020102 




035434 


001406 




035436 


004737 


020100 


035442 






035442 


104456 




035444 


000365 




035446 


047115 




035450 


016344 




035^52 






035452 


104406 




035454 


012703 


001000 


035460 


013737 


003072 



40$: 



NOV 
NOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRD 



CKLOOP 



T26BFR«6.R1 

R1.R2 

«BIT1.R2 

R1.R2 

40i 

PCFATCHK 

ERRN0.T2660T.EXPREC 



046052 



NOV 
NOV 



#512. .R3 
FREE.T26RB 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

.-DOES EXP = REC'D 

;BR. IF EQUAL (OK) 

. *Mr AND CHECK FOR MORE THAN 25 ERRORS 
»£ NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 245 
.WORD T26B0T 
.WORD EXPREC 

:LOOP IF SELECTED 

TRAP C$CLP1 

.•RECORD SIZE 

.•STARTING WRITE BUFFER ADDRESS 



.•WRITE DATA.CVCsl.ACK CONMAND 



140005 
C46050 

04d036 
177776 
017120 
000000 



046050 



65$: 



NOV »1 40005. T26PK3 

NOV »r26PK3.R4 

NOV R3.T26SZ 

MOV R4.TSDB(R5) 

JSR PC.WAITF 

MOV TSSR(RS),R1 



.WRITE DATA,CVCs1,ACK COMMAND 
.SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 
.•ISSUE COMMAND 
:WAIT FOR SSR TO SET 
.-GET TSSR CONTENTS 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 



N 12 
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SEO 155 



6273 035520 

6274 035524 

6275 035526 

6276 035530 
6280 

6281 
6282 

6283 035534 
03553/. 
035536 
035540 
03SS42 

6284 035S44 
035544 

6285 03S546 

6286 035550 
6287 

6288 
6289 
6290 
6291 
6292 
6293 

6294 035556 

6295 035564 

6296 035570 

6297 035574 
o298 035600 
6299 035604 

6500 035610 

6501 035614 
0502 035616 
6303 035620 

6307 035624 
035624 
035626 
03*5630 
035632 

6308 035634 
035634 

6309 
6310 
6311 
6312 
6313 
6314 
6315 

6316 035636 

6317 035642 

6318 035644 
6519 035650 
6320 035652 
632 J 035654 
6325 035660 

03S660 
035662 
035664 



012702 000200 

020102 

001406 

004737 020100 



104457 
000366 
005011 
011700 

104406 
00S303 

013737 003072 



012737 
012704 
010337 
010465 
004737 
016501 
0127C2 
020102 
001406 
004737 

104456 
000367 
050462 
011700 

104406 



NOV 
CHP 
BEQ 
JSR 



fSSR^R2 

R1-R2 

75i 

PC.FATCHK 



ERRSOFT ERRNO,URTERR,PKTSSR 



:SET UP EXPECTED 
:ARE THEY EQUAL 
*BR IF OK 

Unt AND CHECK FOR NORE THAN 25 ERRORS 
.-SOFT ERROR GENERATED BECAUSE THE 
:URITE COMMAND IS NOT BEING CHECKED 
:HERE. IT WAS CHECKED IN C2TUXA 
:TSSR INCORRECT AFTER URITE DATA 



75$: 



046052 



CKLOOP 

DEC 
NOV 



R3 

FREE,T26RB 



TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

:SET RECORD SIZE TO 511. 
.•STARTING READ BUFFER ADDRESS 



CtERSOFT 
246 

WRTERR 
PKTSSR 

CfCLPI 



ft***************************************************************** 

REREAD DATA«CVC«1,ACK,0PP»1 CONNAND 

*******ftftft**ft*ft*********ftft***ftft*********************************** 



161001 
046050 
046056 
177776 
017120 
000000 
100204 



020100 



046050 



165$: 



170S: 



NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CMP 
BEQ 
JSR 

ERRHRO 



CKLOOP 



#16100M26PK3 

#T26PK3.R4 

R3«T26S^ 

R4,TSDB(R5) 

PC,WAITF 

TSSR(R5)«R1 

fSSR!SC!BIT2,R2 

R1.R2 

176$ 

PCFATCHK 

ERRII0,T26TRL«PKTSSR 



.•REREAD DATA,CVCs1,ACK,0PP-1 COMMAND 

;SET UP R4 UITH PACKET ADDRESS 

.-SET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

:UAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

;SET UP EXPECTED 

.-ARE THEY EQUAL 

'BR IF OK 

•INC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER RFREAD DATA 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
247 
T26TRL 
PKTSSR 



TRAP C$CLP1 



•READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 045746 

010102 

052702 010000 

020102 

001406 

004737 020100 

104456 
000370 
050230 



NOV T26BFR^,R1 :6ET 

MOV RUR2 :SET 

BIS #BIT12,R2 :SET 

CMP R1.R2 ;ARE 

BEQ 180$ :BR, 

JSR PC.FATCHK ;INC 

ERRHRD ERRN0«T26L0N«EXPREC ;THE 



MESSAGE BUFFER 
UP EXPECTED 

THE RLL BIT IN E)'PECTED 
THEY EQUAL 

IF EQUAL (ALL IS WELL) 

AND CHECK rOR MORE THAN 25 ERRORS 

RLL BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 
.WORD 24S 
.WORD T26L0N 



C2TJYA0 TU80 FRONT END ?RT C 
TEST 2: REREADS 
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SEO 1S6 



6326 

6327 
6328 
6329 
6330 
633'! 
6532 
6333 
6334 
6535 
6336 
6537 
6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6349 



6350 

6351 
6352 
6353 
6354 
6355 
6356 
6357 
6358 
6359 
6^60 
6361 
6365 



6366 



6367 
6368 
6369 
6570 



035666 
035670 
035670 
035672 
035676 



035704 
035712 
035716 
035722 
035726 
035732 
035736 
035742 
035744 
035746 
035752 
035752 
035754 
035756 
035760 
035762 
035762 



035764 
035770 
035772 
035776 
036000 
036002 
036006 
036006 
036010 
036012 
036014 
036016 
036016 
036016 
036020 
036026 
036030 
036034 



016344 

104406 
012703 
013737 



012737 
012704 
01C337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000371 
050462 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000372 
050230 
016344 



104403 
023727 
002402 
004737 



000777 
003072 



046052 



180$: CKLOOP 

NOV 
NOV 



;L00P IF SELECTED 



#511.. R3 
FREE,T26RB 



.WORD 
TRAP 



:SET RECORD SIZE 
.•STARTING K:AD BUFFER ADDRESS 



EXPREC 
C$CLP1 



REREAD DATA,CVC=1 .ACK CONNAND 

****************************************************************** 



14 1 001 
046050 
046056 
177776 
017120 
000000 
100204 



020100 



046050 



365$: 



3701: 



NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



CKLOOP 



#141001.T26PK3 

#T26PK3.R4 

R3,T26SZ 

R4.TSDB(R5) 

PCWAITF 

TSSR(RS).R1 

#SSR!SC!BIT2,R2 

R1.R2 

376$ 

PC.FATCHK 

ERRN0,T26TRL,PKTSSR 



.•REREAD DATA.CVC=1 .ACK CONNAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
.•ISSUE CONNAND 
.-WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
:SET UP EXPECTED 
:ARE THEY EQUAL 
*BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER RbREAD DATA 

TRAP C$ERHRD 

.WORD 

.WORD 
WORD 

;LOOP IF SELECTED 

TRAP 



249 
T26TRL 
PKTSSR 



C$CLP1 



045746 
010000 

020100 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
****************************************************************** 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 
ERRHRD 



380S: ENDSUB 



T266FRf6«R1 

R1,R2 

«8IT12,R2 

R1.R2 

386$ 

PCFATCHK 

ERRN0,T26L0N,EXPREC 



002170 
020152 



000031 



999$: 



CNP 
BLT 
JSR 



FATFLG.#25. 
999$ 

PCCKDROP 



:GET NESSAGE BUFFER 

;SET UP EXPECTED 

:SET THE RLL BIT IN EXPECTED 

:ARE THEY EQUAL 

;BR. IF EQUAL (ALL IS WELL) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:THE RLL BIT WAS NOT SET IN XSTO 

TRAP C$ERHRO 
.WORD 250 
.WORD T26L0N 
.WORD EXPREC 

;»»»»»» END SUBTEST »»»»»» 
LI 0053: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
:TRY TO DROP THE UNIT 



J 



CZTUYAO TU80 FRONT END PRT 
TFST i: REREADS 

6572 
6573 
6?7A 
6575 
6376 
6577 
6578 
6579 

6:eo 

6381 
6582 
6585 
638A 
6385 
6386 
6i87 
6388 
6389 



6390 
6391 
6392 
6393 
639A 
6395 
6396 
6397 
6398 
6^99 
6A00 
6A01 
640? 
6A06 
6407 



6408 
6409 
6410 
6411 
6412 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
64?0 
6424 
6<.?5 



036034 
056034 
056034 
056056 
036042 
036046 



104402 
004737 
004737 
004737 



036052 
036056 
036060 
036064 
036066 
036066 
0?6070 
036072 
03607'. 
036076 



004737 
103407 
004737 
010001 

104455 
000373 
003550 
011666 



B 13 

NACRO HI 200 29-nAR-83 13:43 PAGE 89 



TEST 2, SUBTEST 6 

VERIFIES THAT A REREAD PREVIOUS COfVUND READING A 
RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
TAPE STATUS ALERT TERNINATION WITH THE RECORD LENGTH 
SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 
RESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER 
CONTAINS THE PROPER NONZERO VALUE (E.G., THE 
DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
ACTUAL RECORD LENGTH). RESULTS ARE VE.'tlFIED FOR BOTH 
STATES OF OPP (0 AND 1). 



SEC 157 



050640 
05073^ 
050774 



016644 
020100 



036u76 012704 045720 



036102 
056106 
036110 
036114 
036116 
036116 
036120 
0^6122 



004737 
103407 
004737 
010001 

104456 
000374 
004754 



010332 
020100 



B6NSUB 



JSR 
JSR 
JSR 



PC,T26REST 

PC,T26RT2 

PC,T26RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.6: 

TRAP CSBSUB 

;SET COMMAND PACKET 

;SET UP OTHER COMMAND HACKET 

;SET UP OTHER COMMAND PACKET 



****************************************************************** 

ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
****************************************************************** 



JSR PCSOFINIT 

BCS 20S 

JSR PCFATCHK 

MOV R0,R1 

ERRDF ERRN0«SFIERR,SFIMS6 



:D0 INITIALIZE ON CONTROLLER 
;BR IF TNIT WAS OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
.•CONTENTS OF TSSR REGISTER 
; FATAL ERROR TSSR WAS NOT OK 



20S: 



TRAP 
.WORD 
.WORD 
.WORD 



CSERDF 

251 

SFIERR 
SFIMS6 



MOV #T26PACKET,R4 .-SUBROUTINE NEEDS PACKET ADDRESS 

****************************************************************** 

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
****************************************************************** 



JSR PC.WRTCHR 

BCS 26i 

JSR PC.FATCHK 

MOV RO.RI 

ERRHRD ERRN0.WRTHSG.SFIMS6 



;ISSUE WRITE CHARACTERISTICS 

;BR. IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;SAVE C(;NTENTS OF TSSR 

;WRITE CHARACTERISTISC FAILED 

TRAP CSERHRO 
.WORD 252 
.WORD WRTMS6 



C2TUVA0 TU80 FRONT END PRT C 
TEST i: REREADS 



6A26 

6A27 

6A29 
6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 
6438 
6439 
6443 



6444 

6445 
6446 
6447 
6448 
6449 
6450 
6451 
6452 
6453 
6454 
6455 
6456 
6457 
6461 



646/ 

6463 
6464 
6465 
6466 
6467 
6468 
6469 
6470 
6471 
6472 
6473 
6474 
6475 
64 76 



036124 
036126 
036126 



036130 
036134 
0361 36 
036142 
036146 
0361 50 
036154 
036154 
036156 
036160 
036162 
036164 
036164 



036166 
036172 
036174 
036200 
036202 
036204 
036210 
036210 
036212 
056214 
036216 
036220 
036220 
036222 
036226 



036234 
036242 
036246 
036246 
036252 



011666 
104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000376 

047115 
016344 

104406 
012703 
013737 



010337 
010465 
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26S: CKLOOP 



SE'^ 158 



:LOOP If SELECTED 



.WORD SFIKS6 
TRAP CSCLPI 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004737 010434 
103413 

016501 000000 

012702 000200 
010004 

004737 020100 

104456 
000375 
047404 
011700 

104406 



30$: 



JSR 
BCS 
MOV 
MOV 
MOV 
JSR 

ERRHRD 



CKLOOP 



PC.REUIND 
30i 

TSSR(R5),R1 
irSSR,R2 
R0«R4 
PC.FATCHK 

ERRNO,T26RyN,PKTSSR 



:CALL TAPE REWIND COMMAND 
:BR. IF NO PROBLEM 

;6ET TSSR 

;SET UP EXPECTED T^SR 
.•PACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
.REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

253 

T26RWN 
PKTSSR 



TRAP C$CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
****************************************************************** 



04S746 
000002 

020100 



40$: 



NOV 
MOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRD 



CKLOOP 



T26BFR«6,R1 

R1,R2 

«8IT1,R2 

R1.R2 

40i 

PC.FATCHK 

ERRN0,T26B0T,EXPREC 



000400 
003072 



046052 



MOV 

MOV 



#256.. R3 
FREE.T26RB 



.•PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

.•DOES EXP ' REC'D 

:BR. IF EQUAL (OK) 

;1NC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

.•RECORD SIZE 

.•STARTING WRITE BUFFER ADDRESS 



CSERHRD 
254 

EXPREC 
CSCLPI 



.WRITE DATA.CVC=1.ACK COMMAND 



012737 140005 
012704 046050 



046050 



046056 
177776 



6SS: 



MOV #140005. T26PK3 

MOV #T26PK3.R4 

MOV R3.T26SZ 

NOV R4.TSDB(RS) 



.WRITE DATA.CVCs1.ACK COMMAND 
;SET UP R4 UIIN PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 
.•ISSUE CONNAND 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 
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SEO 15' 



64?/ 
6478 
6479 
6480 
6481 
6482 
6486 
6487 
6'»63 
6489 



6490 

6491 
6492 
6493 
6494 
6495 
6496 
6497 
6498 
64^9 
6500 
6501 
6502 
6503 
650A 
6505 
6506 
6507 
6508 
6509 
6513 



6SU 

6515 
6S16 
6517 
6518 
6519 
6520 
6521 
6522 
6523 



036256 
036262 
036266 
036Z 72 
056274 
056276 



036302 
036302 
056304 
056306 
056510 
056512 
056512 
056314 
036320 



036526 
056534 
056540 
0563A4 
036350 
036354 
03636'^ 
036 36h 
036366 
036370 
036374 
036374 
036? 76 
036400 
036402 
036404 
036404 



05640^ 




004737 
016501 
012702 
020102 
001406 
004737 



104457 
000377 
005011 
011700 

104406 
012703 
013737 



012757 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000400 
050462 
011700 

104406 



017120 
000000 
000200 



020100 



JSR 

nov 

NOV 
CMP 
BEO 
JSR 



PCWAITF 

TSSR(R5),R1 

#SSR.R2 

R1,R2 

75i 

PC^FATCHK 



cRRSOFT ERRN0,URTERR,PKTSSR 



yAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEV EQUAL 
BR, IF OK 

INC AND CHECK FOR NORE THAN 25 ERRORS 
SOFT ERROR GfcNERATED BECAUSE THE 
yRITE COWAND IS NOT BEING CHECKED 
HERE. IT UAS CHECKED IN CZTUXA 
TSSR INCORRECT AFTER WRITE DATA 



75$: 



001000 
003072 



046052 



CKLOOP 

NOV 
R9V 



#512, ,R3 
FREE.T26RB 



TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

'RECORD SIZE 

•STARTING READ BUFFER ADDRESS 



CIERSOFT 
255 

WRTERR 
PKTSSR 

CSCLP1 



REREAD PREVIOUS, ACK,CVCs1,0PP»1 



161001 
046050 
046056 
177776 
017120 
000000 
100204 



020100 



046050 



165$: 



NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEO 
JSR 

ERRHRD 



170S: CKLOOP 



#161001,T26PK3 

#T26PK3.R4 

R3,T26Si 

R4,TSDB(R5) 

PCWAITF 

TSSR(RS),R1 

«SSR!SC!BIT2,R2 

R1.R2 

176s 

PC.FATCHK 

ERRN0,T26TRL, PKTSSR 



:REREAO PREVIOUS, ACK,CVCsU0PP«1 
:SET UP R4 WITH PACKET ADDRESS 
:SET UP RECORD SIZE IN PACKET 
; ISSUE CONNAND 
;WAI^ FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
:ARE THEY EQUAL 
*BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

:LOOP IF SELECTED 

TRAP 



CSERHRD 

256 
T26TRL 
PKTSSR 



CtCLPI 



READ NESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 045746 
010102 

Q52702 040000 

020102 

00U06 

004737 020100 
104456 



NOV T26BFR^o,Rl 

NOV R1,R2 

BIS #CIT14,R2 

CNP R1.R2 

BEO 180$ 

JSR PCFATCHK 

ERRHRD ERRN0,T26L0P,EXPREC 



:GET NESSAGE BUFFER 

;SET UP EXPECTED 

;SET THE RLS BIT IN EXPECTED 

;ARE THEV EQUAL 

:BR, IF EQUAL (ALL IS WELL) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:THE RLL BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 



' CZTUYAO TU80 FRONT END PRT C 
TEST C: REREADS 



E 13 
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SEO '60 



6S52 
653' 
655A 
6535 
6536 
6537 
6541 



6542 

6543 
6544 
6545 
6546 
6547 
6548 
6549 
6550 
6551 
6552 
6553 
6554 
6555 
6556 
6557 
6558 
6559 
6560 
6561 
6565 



6566 

656? 
6568 
6569 
6570 
65/1 
657? 
6573 
6S74 
6575 
6576 
6577 
6578 
6579 
6583 



036432 
036434 
036436 
036440 
036440 
036444 
036450 
03645? 
036454 
036460 
036A60 
036462 
036464 
036466 
036470 
036470 
036472 
036476 



036564 
036570 
036572 
036576 
036600 
036602 
036606 
036606 



000401 
050312 
016344 

013701 
012702 
020102 
001406 
004737 

104456 
000402 
050374 
016344 

104406 
01 2 '03 
013737 



045744 
000400 



020100 



180S. 



190S: 



nov 

MOV 

r«p 

BEQ 
JSR 

ERRHRD 



CKLOOP 



T26BFR«-4,R1 
#256.. R2 
R1.R2 
196i 

PCFATCNK 

ERRN0,T26PBP,EXPREC 



.WORD 257 
.WORD T26L0P 
.WORD EXPREC 

;PICK UP RESIDUAL BYTE COUNTER 
;THIS SHOULD BE THE DIFFERENCE 
:IS THE DIFFERENCE CORRECT 
;BR, IF CORRECT 

:INC AND CHECK FOR HORE THAN 25 ERRORS 
;RBPCR NOT CORRECT 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
258 

T26PBP 
EXPREC 



001000 
003072 



046052 



NOV 
MOV 



#512., R3 
FREE,T26RB 



;RECORD SIZE 
; STARTING READ BUFFER ADDRESS 



TRAP CSCLP1 



****************************************************************** 

REREAD PREVI0US,ACK,CVC-1.0PP»0 

****************************************************************** 



036504 


012737 


141001 046050 


036512 


012704 


046050 


036516 


010337 


046056 


036522 


010465 


177776 


036526 


004737 


017120 


036532 


016501 


000000 


036536 


012702 


100204 


036542 


020102 




036544 


001406 




036546 


004737 


020100 


036552 






036552 


104456 




036554 


000403 




03655< 


050462 




036560 


011700 




0365o2 






036)62 


104406 





270S: 



NOV 
MOV 

nov 

MOV 

JSR 

mv 

NOV 
CNP 
BEQ 

JSR 

ERRHRD 



CKLOOP 



#U1001,T26PK3 

«T26PK3,RA 

R3,T26Si 

R4,TSDB(R5) 

PC.WAITF 

TSSR(R5),R1 

#SSR!SC!BIT2«R2 

R1.R2 

27d$ 

PCFATCHK 

ERRNO«T26TRL,PKTSSR 



;reread previous, ack. cvc^i »opp«0 
:set up r4 with packet address 
.set up record size in packet 
; issue connano 
.-wait for ssr to set 
;get tssr contents 
;set up expected 
:are they equal 
'EIr if ok 

•inc and check for more than 25 errors 
;tssr incorrect after read data 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



C$ERHRD 

259 
T26TRL 
PKTSSR 



CSCLP1 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
****************************************************************** 



0^3701 
010102 
052702 
020102 
001406 
004737 

104456 



045746 
040000 



020100 



NOV T26BFR«6,R1 

NOV R1 ,R2 

BIS f6IT14.R2 

CNP R1.R2 

BEQ 28dS 

JSR PCFATCHK 

ERRHRD ERRN0,T26L0P,EXPREC 



;GET MESSAGE BUFFER 

.-SET UP EXPECTED 

:SET THE RLS BIT IN EXPECTED 

;ARE THEY EQUAL 

;6R. IF EQUAL (ALL IS WELL) ^ 

;INC AND CHECK FOR NORE THAN 2S ERRORS 

;THE RLL BIT WAS NOT SET IN XSTO 

TRAP CSERHRD 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 
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036610 
036612 
0366U 

6584 036616 

6585 036616 

6586 036622 

6587 036626 

6588 036630 

6592 036634 
036634 
036636 
036640 
036642 

6593 036644 
036644 

6594 036646 
036646 
036646 

6595 036650 

6596 036656 

6597 036660 

6598 036664 



000404 
050312 
016344 

013701 045744 
012702 000400 
020102 
001405 

104456 
000404 
050374 
016344 

104406 



104403 

023727 002170 000031 
002402 

004737 020152 



280S: 



290$: 



999$: 



MOV 
MOV 
CMP 
BEQ 
ERRHRO 



CKLOOP 
ENOSUB 



CW> 
BIT 
JSR 



T26BFR*4,R1 
#256., R2 
R1.R2 
296$ 

ERRN0,T26P6P«EXPREC 



FATFL6,f25. 
999$ 

PCCKOROP 



.WORD 260 
.WORD T26L0P 
.WORD EXPREC 

;PICK UP RESIDUAL BYTE COUNTER 
;THIS SHOULD BE THE DIFFERENCE 
;IS THE DIFFERENCE CORRECT 
;BR, IF CORRECT 
;RBPCR NOT CORRECT 

TRAP C$ERHRD 
.WORD 260 
.WORD T26P6P 
.WORD EXPREC 

;L00P IF ^ELECTED 

TRAP C$CLP1 
;»»»»»» END SUBTEST »»»»»» 
LI 0054: 

TRAP C$ESUB 
;IS ERROR C0U4T AT 25 
;BR« IF LESS THAN 25 
;TRY TO DROP THE UNIT 



C II 



CZTUVAO TU80 FRONT END PRT 
TEST 2: REREADS 



6600 
6601 
6602 
6603 
6604 
660S 
6606 
6607 
6608 
6609 
6610 
6611 
6612 
6613 
66U 
661 S 
6616 
6617 
6618 
6619 
6620 
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TEST 6. SUBTEST 7 



VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP«0 
AND SyB«0 OPERATES PROPERLY. THE TAPE IS FIRST 
REWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE 
IS THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE 
TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
NEXT COMMAND ISSUED. RESULTS (STATUS, DATA, 
ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
NEXT COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



SEO 16? 



6621 
6622 
6623 
662A 
6625 
6626 
6627 
6628 
6629 
6630 
6631 
6632 
6633 
6637 
6638 



6639 
6640 
6641 
6642 
6643 
6644 
6645 
6646 
6647 
6648 
6649 
6650 
6651 
6655 
6656 



036664 
036664 
036664 
036666 
036672 
036676 



104402 

004737 050640 

004737 050732 

004737 050774 



BGNSUe 



JSR 
JSR 
JSR 



PC.T26REST 

PC,T26RT2 

PC,T26RTS 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.7: 

TRAP CSaSUB 

;SET COMMAND PACKET 

:SET UP OTHER COMMAND PACKET 

:SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT** INITIALIZE - CARRY BIT CLEAR IF ERROR 



036702 
036706 
036710 
036714 
036716 
036716 
036720 
0367/ 
0367^ 
03672 



12 
16 



004737 016644 
103407 

004737 020100 
010001 

104455 
000405 
003550 
011666 



JSR 
6CS 
JSR 
NOV 
ERRDF 



PC.SOflNIT 
20i 

PCFATCHK 
RO.RI 

ERRNO,SFIERR,SFIMSG 



20$: 



036726 012704 04S720 



NOV 



#T26PACKET,R4 



:D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 

:INC AND CHECK FOR NORE THAN 2S ERRORS 

.•CONTENTS OF TSSR REGISTER 

: FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 261 
.WORD SFIERR 
.WORD SFINSG 



; SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS CONNAND (CALL TO URTCHR) 



036732 
036736 
036740 
036744 
036746 



004737 010332 
103407 

004737 020100 
010001 



JSR PC.WRTCHR 

BCS 26i 

JSR PCFATCHK 

NOV R0,R1 

ERRHRD ERRNO,WRTNSG,SFINSG 



.•ISSUE WRITE CHARACTERISTICS 

:BR, IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC FAILED 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 
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6657 

66S6 
6659 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
6674 



6675 

6676 
6677 
6678 
6679 
6680 
6681 
6682 
6683 
6684 
6685 
6686 
6687 
6688 
6692 



6e95 

6694 
6695 
6696 
6697 
6698 
6699 
6700 
6701 
6702 
6703 
67C4 



036746 
036750 
036752 
036754 
036756 
036756 



036760 
036764 
036766 
036772 
036776 
037000 
037004 
037004 
037006 
037010 
037012 
037014 
037014 



037016 
037022 
037024 
037030 
037032 
037034 
057040 
037040 
OS 7042 
057044 
037046 
057050 
057050 
057052 
037056 



037064 
037072 



104456 
000406 
004754 
011666 

104406 



004737 
103413 
016501 
012702 
010004 
004737 

104456 
000407 
047404 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000410 
047115 
016344 

104406 
012703 
01*757 



012737 
012704 



26i: CKLOOP 



;LOOP IF SELECTED 



TRAP 
.W0R9 
.WORD 
.yORD 



CSERHRD 
262 

URTMSG 
SFIHSG 



TRAP CKLP1 



ISSUE REWIND COMNAND TO SELECTED TAPE DRIVE 



010434 

000000 
000200 

020100 



30$: 



JSR 
BCS 
NOV 
NOV 
NOV 
JSR 

ERRHRD 



CKLOOP 



PC, REWIND 
30» 

TSSR(R5),R1 
#SSR,R2 
R0,R4 
PC.FATCHK 

ERRN0.T26RWN,PKTSSR 



.CALL TAPE REWIND COMNAND 
:8R, IF NO PROBLEH 

;GEr TSSR 

:SET UP EXPECTED TSSR 
.•PACKET ADDRESS SET UP 
;1NC AND CHECK FOR HOKE THAN 2S ERRORS 
.-REWIND NOT ACCEPTED 



.-LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CHRHRD 
263 
T26Rwr! 
PKTSSR 



TRAP CSCLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER 2ER0 (XSTO) 



04S746 
000002 

020100 



NOV 
NOV 
BIS 
CHP 
BEO 
JSR 



T266FR46.R1 
R1.R2 ^ 
«6IT1,R2 
R1,R2 
40i 

PC.FATCHK 



40S: 



000400 
003072 



046052 



ERRHRD ERRN0.T2660T.EXPREC 



CKLOOP 

NOV f2S6..R3 
NOV FREE.T26RB 



:PICK UP XSTO 

;SET UP EXPtCTED 

:SET BOT BIT IN EXPECTED 

.-DOES EXP - REC*D 

;BR. IF EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 2S 

;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

.'LOOP IF SELECTED 

TRAP 

.RECORD SIZE 

.STARTING WRITE BUFFER ADDRESS 



ERRORS 

CSERHRD 

264 

T26B0T 
EXPREC 

C$CLP1 



WRITE DATA,CVC-1.ACK COMIAND 



140005 
046050 



046050 



HOV fU000S,T26PKS 
NOV fT26PKS,R4 



;WRITE DATA.CVCsl.ACK COMNAND 
:SET UP R4 WITH PACKET ADDRESS 



C2TUYA0 ru80 fRONT END PRT C 
TEST 2: REREADS 
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SEO 164 



6705 
6706 
6707 
6708 
6709 
6710 
6711 
6712 
6713 
6714 
6715 
671V 
6720 
6721 
6722 



6723 

6724 
6725 
6726 
6727 

6728 
6729 
6730 
6731 
6732 
6733 
6734 
6735 
6736 
6737 
6738 
6739 
6740 
6741 
6745 



6746 

6747 
6748 
6749 
6750 
6751 
6752 
6753 
6754 
6755 
6756 



037076 
037076 
037100 
037104 
037110 
037114 
037120 
037124 
037130 
037132 
037134 



037140 
037140 
037142 
037144 
037146 
037150 
037150 
037152 
037154 
037160 
037162 
037162 
037164 



037164 
037170 
037172 
037176 
037202 
037204 
037210 
037210 
037212 
037214 
037216 
037220 
037220 



037222 
037226 
037230 



010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000411 
005011 
011700 

104406 
005723 
022703 
001346 

104406 



004737 
103413 
016501 
012702 
010004 
004737 

104456 
000412 
047404 
011700 

104406 



013701 
010102 
052702 



020372 
046056 
177776 
017120 
000000 
000200 



020100 



000414 



010434 

000000 
000200 

020100 



045746 
000002 



65S: 



mv 

JSR 
NOV 

mv 

JSR 

nov 

NOV 
CNP 
BEO 
JSR 



R5.R0 

PCFILLHEN 

R3,T26S2 

R4,TSDB(R5) 

PC.UAITF 

TSSR(RS),R1 

fSSR.R2 

R1.R2 

75i 

PCFATCHK 



75$: 

80$: 
120$: 



ERRSOFT ERRNO.URTERR.PKTSSR 



CKLOOP 

TST (R3)* 
CMP #268., R3 
BNE 65$ 

CKLOOP 



:SEr PATTERN IN CORRECT REGISTER 
;F1LL NENORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
.-ISSUE COMMAND 
;UAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
.SET UP EXPECTED 
;ARE THEY EQUAL 
*BR IF OK 

•INC AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
:URITE COMMAND IS NOT BEING CHECKED 
;HEfiE. IT WAS CHECKED IN C2TUXA 
;TSSR INCORRECT AFTER WRITE DATA 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERSOFT 
265 

WRTERR 
PKTSSR 



:6UMP RECORD SIZE 
;END OF RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
:LOOP IF SELECTED 

TRAP 



TRAP C$CLP1 



C$CLP1 



****************************************************************** 
ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



JSR 
BCS 
MOV 
MOV 
MOV 
JSR 

ERRHRD 



130$: CKLOOP 



PC.REWINO 
136$ 

TSSR(R5>,R1 
#S$R.R2 
R0«R4 
PCFATCHK 

ERRN0,T26RWN.PKTSSR 



;CALL TAPE REWIND COMMAND 
;BR. IF NO PROBLEM 

;GET TSSR 

: SET UP EXPECTED TSSR 
; PACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRO 
266 
T26RWN 
PKTSSR 



TRAP C$CLP1 



:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



MOV 
MOV 
BIS 



T266FR*6.R1 

RnR2 

fBlTnR2 



.•PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 
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6757 
67S8 
6759 
6763 



676A 

6765 
6766 
6767 
6768 
6769 
6770 
6771 
6772 
6773 
6774 
6775 
6776 
6777 
6778 
6779 
6780 
6781 
6785 



67J6 
6787 
6788 
6789 
6790 
6791 
6792 
6793 
679A 
6795 
6796 
6797 
6798 
6799 
6800 
6801 
6802 
6803 
6804 
6805 
6809 



037234 
037236 
037240 
037244 
037244 
037246 
037250 
037252 
037254 
037254 
037256 
037264 



037266 
037272 
037276 
037300 
037304 
037310 
037312 
037316 
0373to 
037320 
037322 
037324 
037326 
037326 
037332 



020102 
001406 

004737 020100 

104456 
000413 
047115 
016344 

104406 

012737 000400 
000420 



CPIP R1.R2 

BEQ lAOt 

JSR PCFATCNK 

ERRHRD ERRN0,T26B0T,EXPREC 



046102 



140t: CKLOOP 

NOV 
BR 



#256.,T26RSZ 
150t 



;00ES EXP - REC'O 
;BR, IF EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
.-TAPE NOT AT BOT AFTER REWIND 

TRAP 
.UORO 
.WORD 
.WORD 

.LOOP IF SELECTED 

TRAP 

.•STORE START RECORD SIZE 
.•SKIP THE SAPCE THIS TINE 



CtERHRD 
267 
T26B0T 
EXPREC 

CSCLPl 



********************************** ******************************** 

ISSUE SPACE RECORDS CONNAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - O-FORUARD IsREVERSE 



012703 
004737 
103413 
016501 
012702 
010004 
004737 

104456 
000414 
046517 
016344 

013703 
013737 



oooor 

01014J 

000000 
000200 

020100 



145$: 



046102 
003072 



150$: 



046052 



NOV #1 .R3 

JSR PC.SPACE 

BCS 156$ 

NOV TSSR(R5>,R1 

NOV #SSR(R2 

NOV R0,R4 

JSR PC.FATCHK 

ERRHRD ERRN0,T26SC«EXPREC 



NOV T26RSZ.R3 
NOV FREE.T26RB 



.•SPACE ONE RECORD PARANETER 

;CALL SPACE ROUTINE 

;BR. IF NO PROBLEM WITH SPACE CONNAND 

:6ET TSSR 

;SET UP EXPECTED TSSR 

.PACKET ADDRESS SET UP 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

.'POSITION (SPACE RECORDS) FAILED 

TRAP C$ERHRD 
.WORD 268 
.WORD T26SC 
.yORD EXPREC 

'RECORD SIZE 

•STARTING READ BUFFER ADDRESS 



REREREAD DATA.CVC^I ,ACK CONNAND 



037340 


012737 


141401 046050 


NOV 


037346 


012704 


046050 165$: 


NOV 


037352 


010337 


046056 


NOV 


037356 


0^0465 


177776 


NOV 


037362 


004737 


017120 


JSR 


037566 


016501 


000000 


NOV 


037372 


012702 


000200 


NOV 


037376 


020102 




CNP 


037400 


001406 




BEQ 


037402 


004737 


020100 


JSR 


037406 






ERRHRD 


037406 


104456 






037410 


000415 






037412 


047740 






037414 


011700 







#1 41401. T26PKS 

fT26PK3.R4 

R3.T26SZ 

R4.TSDB(R5) 

PC.WAITF 

TSSR(R5).R1 

#SSR.R2 

R1.R2 

176$ 

PC.FATCHK 

ERRN0.T26UDC.PKTSSR 



.REREREAD DATA.CVC^I.ACK CONNAND 
.SET UP R4 UITH PACKET ADDRESS 
.SET UP RECORD SIZE IN PACKET 
.•ISSUE CONNAND 
:UAIT FOR SSR TO SET 
.•GET TSSR CONTENTS 
.SET UP EXPECTED 
;ARE THEY EQUAL 
•BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
.'TSSR INCORRECT AFTER REREAD DATA 

TRAP CSERHRD 
.WORD 269 
.WORD T26UDC 
.WORD PKTSSR 



CZTUYAO TU80 FRONT END PRT C 
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SEQ 166 



6810 037416 
037', 16 

6811 037420 

6812 037424 

6813 037426 

6814 037432 

6815 037434 

6816 037436 

6817 037440 

6818 037442 

6819 037444 

6823 037450 
037450 
037452 
037454 
037456 

6824 037460 
037460 

6825 037462 

6826 037464 

6827 037466 

6828 037470 

6829 037472 

6830 037474 

6831 037500 
6852 037504 
6833 037506 

037506 
6854 037510 
037510 
037510 

6835 037512 

6836 037520 

6837 037522 
6858 037526 



104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
004737 

104456 
000416 
047162 
016344 

104406 
005724 
160204 
020403 
001360 
005723 
010357 
022703 
001270 

104406 



104403 
023727 
00240. 
004737 



C03072 
000400 



020100 



046102 
000410 



170$: CKLOOP 

nov 

NOV 

SUB 

173$: ADO 
CNP 
BEO 
MOV 
MOV 
JSR 

ERRHRO 



180$: CKLOOP 

TST 
SUB 
CMP 
BNE 
TST 
MOV 
CMP 



190$: 



002170 
020152 



000031 



999$: 



CKLOOP 
ENOSUB 



CMP 
BLT 
JSR 



FREE,R2 
R3.R4 
f2$6.,R4 
R2,R4 , 
(R4),R3 
180$ 
(R4).R1 
R3,R2 
PC.FATCHK 

ERRIiO,T260TA,EXPREC 



;LOOP IF SELECTED 

TRAP C$CLP1 

;CURRENT BUFFER ADDRESS TO R2 
.•CURRENT RECORD SI7E 
:FIRST LOCATION IN BUFFER 
;SET UP POINTER 

.•CHECK DATA READ (R3-DATA ALSO) 
;BR, IF ALL IS WELL 



(R4)* 

R2,R4 

R4.R3 

17S$ 

(R3)* 

R3,T26RSZ 

»2&4.,R3 

145$ 



rATFLG.#25. 
999$ 

PCCKOROP 



;RECD DATA 
; EXPECTED DATA 

;INC AND CHECK FOP MORE THAN 25 ERRORS 
:OATA READ NOT = URITTEN 

TRAP C$ERHRD 
.WORD 270 
.WORD T26DTA 
.WORD EXPREC 

;L00P IF SELECTED 

TRAP C$CLP1 

:BUMP TO NEXT LOCATION 

.•CORRECT RECORDS SIZE VALUE 

:END OF RECORD YET 

:BR, IF NOT AT END OF RECORD 

.BUMP RECORD SIZE 

.•STORE PRESENT RECORD SIZE 

.-END OF RECORD YET 

:BR, IF MORE RECORDS TO READ 

;LOOP IF SELECTED 

TRAP C$CLP1 
;»»»»»» END SUBTEST »»»»»» 
L10055: 

TRAP C$ESUB 
.IS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
:TRY TO DROP THE UNIT 



CZTUYAO ru80 FRONT E«iO PRT C 
TEST 2: REREADS 



68A0 
6841 
6642 
6S43 
6S44 
6845 
6846 
6847 
6848 
6849 
6850 
6851 
685? 
6853 
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TEST 2, SUBTEST 8 



SEO 167 



6854 
6855 
6856 
6857 
6858 
6859 
6860 
6861 
6862 
6865 
6864 
6865 
6866 
68/0 
6871 



6872 
68/3 
6874 
6875 
6876 
6877 
6878 
6879 
6880 
6881 
6882 
6883 
6884 
6888 
6889 



5890 
6891 



037526 
037526 
037526 
037530 
037534 
037540 



verifies that the reread next command with opp«0 
and sye^l operates properly. the test sequence is 
the same as that used in subtest 1. but it is 
v:rified that data stored by the command contains 
swapped bytes. 



104402 
004737 
004737 
004737 



050640 
050732 
050774 



B6NSUB 



JSR 
JSR 
JSR 



PC,T26REST 

PC.T26RT2 

PC,T26RT5 



;»»»»»» BEGIN SUBTEST 
12.8: 

TRAP 

:SET COMMAND PACKET 
;SET UP OTHER COMT ND PACKET 
;$ET UP OTHER COMK«NO PACKET 



»»»»»» 
CS8SUB 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



037544 
057550 
037552 
037556 
037560 
037560 
037562 
037564 
037^)66 
037570 



004757 
103407 
004737 
010001 

104455 
000417 
003550 
011666 



016644 
020100 



JSR 
BCS 
JSR 
MOV 
ERRDF 



PC.SOFINIT 
20i 

PCFATCHK 
RO.RI 

ERRNO^SFIERR.SFIMSG 



20$: 



037570 012704 045720 



MOV 



#T26PACKET.R4 



;D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

.•FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 271 
.WORD SFIERR 
.WORD SFIHSG 



.•SUBROUTINE NEEDS PACKET ADDRESS 



.•WRITE CHARACTERISTICS CONHAND (CALL TO URTCHR) 



C37574 
037600 
037602 
037606 
037610 
057610 
057612 
0^7614 
037616 
037620 
037620 



004737 
103407 
004737 
010001 

104456 
000420 
004754 
011666 

T04406 



010332 
020100 



JSR 
BCS 
JSR 
NOV 
ERRHRD 



26S: CKLOOP 



PC.WRTCHR 
26i 

PCFATCHK 
R0.R1 

ERRNO.URTMSG.SFINSG 



.•ISSUE WRITE CHARACTERISTICS 
.•BR. IF COMMAND ISSUED OK 
.•INC AND CHECK FOR MORE THAN 25 ERRORS 
;SAVE CONTENTS OF TSSR 
.•WRITE CHARACTERISTISC FAILED 



.LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

272 

WRTNSG 
SFIMSG 



TRAP CSCLPI 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 



6892 
6893 
6894 
6895 
6896 
6897 

6898 037622 

6899 037626 

6900 037630 

6901 03763A 

6902 037640 

6903 037642 

6907 037646 
037o46 
0376S0 
037652 
037654 

6908 037656 
037656 
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SEQ 168 



•ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



6909 
6910 
6911 
6912 
6913 
6914 
6915 

6916 037660 

6917 037664 

6918 037666 

6919 037672 

6920 037674 

6921 037676 

6925 037702 
037702 
037704 
037706 
037710 

6926 037712 
037712 

6927 037714 

6928 037720 
6929 

6930 
6931 
6932 
6933 
6934 
6935 

6936 0377?^ 

6937 03773*. 

6938 037740 

6939 037740 

6940 037742 

6941 037746 

6942 037752 

6943 037756 
69t4 C37762 



004737 010434 
103413 

016501 000000 

012702 000200 
010004 

004737 020100 

104456 
000421 
047404 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000422 
047115 
016344 

104406 
012703 
013737 



012737 
012704 

010300 
004737 
010337 
010465 
004737 
016501 



JSR 
BCS 

nov 

NOV 
NOV 

JSR 



PC.REUIND 
30i 

TSSR(R5).R1 
»SSRfR2 
R0«R4 
PCFATCHK 



301: 



ERRHRO ER6nO,T26RUN/kT&SR 



CKLOOP 



;CALL TAPE REWIND CONNAND 
:BR. IF NO PROBLEN 

;6Ef TSSR 

;SET UP EXPECTED TSSR 
.•PACKET ADDRESS SET UP 
;1NC AND CHECK FOR NORE THAN 25 ERRORS 
:REUIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

:LOOP IF SELECTED 

TRAP 



CSERHRD 
273 
T26RWN 
PKTSSR 



C$CLP1 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
****************************************************************** 



045746 
000002 

020100 



NOV 
NOV 
BIS 
CMP 
BEQ 
JSR 



T26BFR«6,R1 
R1,R2 
#BIT1,R2 
R1.R2 
40i 

PCFATCHK 



ERRHRD ERftN0«T26B0T,EXPREC 



40S: 



000400 
003072 



046052 



CKLOOP 

NOV 
NOV 



#256., R3 
FREE.T26RB 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP = REC'D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
:TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

•RECORD SIZE 

•STARTING WRITE BUFFER ADDRESS 



CSERHRD 
274 

T26BOT 
EXPREC 

CSCLP1 



****************************************************************** 

WRITE DATA,CVC>1,ACK,SW6 COMMAND 

****************************************************************** 



150005 
046050 



020372 
046056 
177776 
017120 
000000 



046050 



65$: 



MOV #150005, T26PK3 

MOV #T26PK3«R4 

MOV R3«R0 

JSR PC.FILLNEH 

MOV R3J26SZ 

NOV R4,TSDB(R5) 

JSR PCWAITF 

MOV TSSR(R5),R1 



.WRITE DATA,CVCs1,ACK,SWB COMMAND 
:SET UP R4 WITH PACKET ADDRESS 

:SET PATTERN IN CORRECT REGISTER 
.FILL MEMORY WITH RECORD SIZE 
.SET UP RECORD SIZE IN PACKET 
.•ISSUE COMMAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
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SEO 169 



TEST 2 


: 1EREA0S 


6945 




Ul c fyJc 


6946 


0^777? 




6947 


037774 


001406 


6948 


037776 


004737 


6952 






6953 






6954 






6955 


040002 





040002 
040004 
040006 
040010 

6956 040012 
040012 

6957 040014 

6958 040016 

6959 040022 

6960 040024 
040024 

6961 040026 
6962 

6963 
6964 
6965 
6966 
6967 
6968 
6969 
6970 
6971 
6972 
69/3 
6974 
6978 



6979 



6980 
6981 
6'' 82 
6983 
6984 
6985 
6986 
6987 
6988 
6989 
6990 
6991 
6992 
6996 



104457 
000423 
005011 
011700 

104406 
005723 

022703 000414 
001346 

104406 



040026 


004737 


010434 


040032 


103413 




040034 


016501 


000000 


040040 


012702 


000200 


040044 


010004 




040046 


004737 


020100 


040052 






040052 


104456 




040054 


000424 




040056 


047404 




040060 


011700 




040062 






040062 


104406 





040064 013701 045746 

040070 010102 

040072 052702 000002 

040076 020102 

040100 001406 

040102 004737 020100 

040106 

040106 104456 

040110 000425 

040112 047115 



NOV 
CHP 
BEQ 
JSR 



#SSR.R2 

R1,R2 

75i 

PCFATCHK 



75$: 

80$: 
120$: 



ERRSOFT ERRNO^yRTERR^PKTSSR 



CKLOOP 

TST (R3)* 
CMP #268. «R3 
BNE 65$ 
CKLOOP 



;SET UP EXPECTED 
;ARE THEY EQUAL 
'BR IF OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
:URITE COMMAND IS NOT BEING CHECKED 
;HERE. IT WAS CHECKED IN CZTUXA 
:TSSR INCORRECT AFTER WRITE DAT* 

TRAP C$ERSOFT 



;LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



275 
WRTERR 
PKTSSR 



;BUMP RECORD SIZE 
;END OF RECORD YET 
:BR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 

TRAP 



TRAP C$CLP1 



C$CLP1 



**************************\ *************************************** 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

****************************************************************** 



JSR 
BCS 
MOV 
MOV 
MOV 
JSR 
ERRHRC 



130$: CKLOOP 



PC .REWIND 
136$ 

TSSR(R5)«R1 
#SSR,R2 
R0,R4 
PCFATCHK 

ERRN0,T26RWN«PKTSSR 



;CALL TAPE REWIND COMMAND 
:BR, IF NO PROBLEM 

;GET TSSR 

;SET UP EXPECTED TSSR 
;PACKET ADDRESS SET UP 
:lhC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 



&RWN 
PKTSSR 



TRAP CtCLPI 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
****************************************************************** 



MOV T26BFR*6,R1 

MOV R1 ,R2 

BIS #BIT1.R2 

CMP R1.R2 

BEQ 140$ 

JSR PC.FATCHK 

ERRHRD ERRNO,T26BOT.EXPREC 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET 60T BIT IN EXPECTED 

.-DOES EXP - REC*D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 277 
.WORD T26B0T 



CZTUYAO TU80 FRONT END PRT C 
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04G1U 

6997 040116 
040116 

6998 040120 

6999 040126 
7000 

7001 
7002 
7003 
7004 
7005 
7006 
7007 

7008 040130 

7009 040134 

7010 040140 

7011 040142 

7012 040146 

7013 0401 52 

7014 040154 

7018 040160 
040160 
040162 
040164 
040166 

7019 040170 

7020 040170 

7021 040174 
7022 

7023 
7024 
7025 
7026 
7027 
7028 

7029 040202 

7030 040210 

7031 040214 

7032 040220 

7033 040224 

7034 040230 

7035 040234 

7036 040240 

7037 040242 

7038 040244 

7042 040250 
040250 
040252 
040254 
040256 

7043 040260 
040260 

7044 040262 

7045 040266 

7046 040270 

7047 C 40274 

7048 040276 



016344 
104406 

012737 000400 
000420 



012703 
004737 
103413 
016501 
012702 
010004 
004737 

104456 
000426 
046517 
016344 

013703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000427 
047740 
011700 

104406 
013702 
010304 
162704 
060204 
021403 



000001 
010140 

000000 
000200 

020100 



046*02 
003072 



151401 
046050 
046056 
177776 
017120 
000000 
000200 



020100 



003072 
0004C0 
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SEQ 



170 



046102 



140$: CKLOOP 

MOV 
BR 



»256.,T26RSZ 
150S 



:LOOP IE SELECTED 

; START RECOflO SIZE 
.-SKIP SAPCE THIS TINE 



.WORD 
TRAP 



EXPREC 
CSCLP1 



ISSUE SPACE RECORDS COMMAND - valuE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - OsfORUARD IsREVERSE 



U5S: 



150$: 



046052 



HOV #1,R3 

JSR PC.SPACE 

BCS 150$ 

nOV TSSR(R5),R1 

nOV #SSRfR2 

nOV R0,R4 

JSR PCFATCHK 

ERRHRD ERRNO.T26SC, EXPREC 



NOV T26RSZ.R3 
NOV FREE,T26RB 



; SPACE ONE RECORD PARANETER 

:CALL SPACE ROUTINE 

;BR, IF NO PROBLEM I'lTH SPACE COMMAND 

;6ET TSSR 

;SET UP EXPECTED TSSR 

.•PACKET ADDRESS SET UP 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.'POSITION (SPACE RECORDS) FAILED 

TRAP C$ERHRD 
.WORD 278 
.WORD T26SC 
.WORD EXPREC 

'RECORD SIZE 

•STARTING READ BUFFER ADDRESS 



REREAD DATA,ACK,CVC-1.SyB COMMAND 



046050 



165$: 



NOV 
NOV 
MOV 
MOV 

JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



170$: CKLOOP 



#15U0UT26PK3 

#T26PK3,R4 

R3,T26S2 . 

R4.TSDB(R5) 

PCUAITF 

TSSR(RS)*R1 

#SSR.R2 

R1,R2 

176$ 

PC.FATCHK 

ERRNO.T26U0C,PKTSSR 



.-REREAD DATA.ACK.CVC-I.SUB CONMAND 
:SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 
;UAIT FOR SSR TH SET 
;6ET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
•BR IF OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER REREAD DATA 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.yORD 



C$ERHRD 
279 
T26UDC 
PKTSSR 



173$: 



MOV 
MOV 
SUB 
ADD 
CMP 



FREE.R2 
R3.R4 
#2^6., R4 
R2,R4 , 
(RA>,R3 



TRAP C$CLP1 



.•CURRENT BUFFER ADDRESS TO R2 
.•CURRENT RECORD SIZE 
.FIRST LOCATION IN BUFFER 
.SET UP POINTER 

.CHECK DATA READ (RS-OATA ALSO) 
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70A9 040500 

7050 040302 

7051 040304 

7052 040306 

7056 0^0312 
040312 
040314 
040316 
040320 

7057 040322 
040322 

7058 040324 

7059 040326 

7060 040350 

7061 040532 

7062 040554 
7065 040556 

7064 040542 

7065 040346 

7066 040350 
040550 

7067 040552 
040352 
040352 

7068 04035< 

7069 040362 

7070 Q4Q364 

7071 040370 



001410 
011401 
010302 
004737 

104456 
000430 
047162 
016544 

104'>06 
005724 
160204 
020405 
001360 
005723 
010557 
02?703 
001270 

104406 



104403 

023727 
002402 
00473? 



020100 



180S: 



046102 
000410 



190$: 



002170 
020152 



000031 



999$: 



BEQ 
NOV 
NOV 
JSR 

ERRHRO 



CKLOOP 

TST 
SUB 
CNP 
BNE 
TST 
NOV 
CNP 
BNE 

CKLOOP 
ENOSUB 



CNP 

BLT 
JSR 



180$ 
(R4).R1 
R3,R2 
PC.FATCHK 

ERRN0,T260TA,EXPREC 



(R4)* 

R2.R4 

R4-R5 

17S$ 

<R5)* 

R5,T26RS2 

#264., R3 

145$ 



FATFL6.«25. 
999$ 

PCCKOROP 



;Bh. IF ALL IS WELL 
:RECO DATA 
.•EXPECTED DATA 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;DATA READ NOT = WRITTEN 

TRAP C$ERHRD 
.WORD 280 
.WORD T26DTA 
.WORD EXPREC 

.LOOP IF SELECTED 

TRAP C$CLP1 

:8UNP TO NEXT LOCATION 

.•CORRECT RECORDS SIZE VALUE 

:END OF RECORD YET 

:BR. IF NOT AT END OF RECORD 

:6UNP RECORD SIZE 

.•STORE RECORD SIZE 

;END OF RECORD YET 

:BR, IF NORE RECORDS TO WRITE 

.LOOP IF SELECTED 

TRAP C$CLP1 
;»»»»»» END SUBTEST »»»»»» 
LI 0056: 

TRAP C$ESUB 
;IS ERROR COUNT AT 2S 
;BR. IF LESS THAN 2S 
;TRV TO DROP THE UNIT 



0 u 
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7073 
7074 
7075 
7076 
7077 
7078 
7079 
70S0 
7081 
7082 
7083 
7084 
7085 
7086 
^087 
7088 
7089 
7090 
7091 
7092 
7093 
7094 
7095 
7096 
7097 
7098 
7099 
7100 
7101 
7102 
7103 
7104 
7105 
7106 
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TEST 2, SUBTEST 9 

VERIFIES THAT THE REREAD NEXT COMMAND WITH 0PP=1 
(READ FORUARD. SPACE REVERSE) AND SUB»0 OPERATES 
PROPERLY. THE TAPE IS FIRST REVOUNO AND THEN WRITTEN 
WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
DATA CONTENT: THE FIRST FOUR BYTES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE REREAD NEXT COMMAND IS ISSUED 
AND THE RESULTS CHECKED 

2. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD NEXT 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIOK'fD 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 

THE BYTE COUNT ON kACH REREAD NEXT COMMAND IS SET 
TO THE LENGTH OF THE EXPECTED RECORD « SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



SEC 172 



'107 
71 J8 
7109 
7110 
7111 
7112 
7113 
7114 
7115 
7116 
7117 
7118 
7119 
7120 
7124 
7125 



7126 



040370 
040370 
040370 
040372 
040376 
040402 
040406 



104402 
004737 
005037 
004737 
004737 



050640 
046076 
050732 
050774 



040412 
040416 
040420 
040424 
040426 
040426 
040430 
040432 
040434 
040436 



004737 
103407 
004737 
010001 

104455 
000431 
003550 
011666 



016644 
020100 



6GNSUB 



JSR 
CLR 
JSR 
JSR 



PC,T26REST 
T26CNT 
PC,T26RT2 
PC,T26RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.9: 

TRAP CSBSUB 

;SET COMMAND PACKET 
; CLEAR TAPE RECORD COUNTER 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 



************** *************************************************** 
ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



JSR PC.SOFINIT 

BCS 20i 

JSR PCFATCHK 

NOV K0.R1 

ERRDF ERh;:'> SFIERR«SFIMS6 



20S. 



;D0 INITIALISE ON CONTROLLER 
;BR IF INIT WAS OK 

:INC AND CHECK FOR MORE THAN 2S ERRORS 

.•CONTENTS OF TSSR REGISTER 

: FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 281 
.WORD SFIERR 
.WORD SFIHSG 
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7127 
7128 
7129 
7130 
7131 
7132 
7133 
7134 
7135 

VS 

7138 

7U 

7U 



7UA 

7U5 
7U6 
7U7 
7U8 
71A9 
7150 
7151 
7152 
7153 
7154 
7155 
7156 
7157 
7161 



7162 

7163 
71 6A 
7165 
7166 
7167 
7168 
7169 
7170 
7171 
7172 
7173 
71 7A 
7175 
7179 



040436 012704 045720 



040442 
040446 
040450 
040454 
040456 
040456 
040460 
040462 
040464 
040466 
040466 



040470 
040474 
040476 
040502 
040506 
040510 
040514 
040514 
040516 
040520 
040522 
040524 
040524 



040526 
040532 
040534 
0^0540 
040542 
040544 
040550 
040550 
040552 
040554 
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NOV #T26PACKET.R4 



SEQ 17S 



.•SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COIWAliO (CALL TO yRTCHR) 



004737 01 0332 
103407 

004737 020100 
010001 

104456 
000432 
004754 
011666 

104406 



26$: 



JSR 
BCS 
JSR 
NOV 
ERRHRO 



CKLOOP 



PC.WTCHR 
26i 

PCFATCHK 
R0.R1 

ER(iN0«URTIIS6,SFIHSG 



.'ISSUE URITE CHARACTERISTICS 

:BR. IF COMMAND ISSUED OK 

;1NC AND CHECK FOR MORE THAN 2S ERRORS 

;SAVE CONTENTS OF TSSR 

;WR1TE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



CSERHRD 
282 

WRTMSG 
SFIMSG 



C$CLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004737 010434 
103413 

016501 000000 

012702 000200 
010004 

004737 020100 

104456 
000433 
047404 
011700 

104406 



30f: 



JSR 
BCS 
MOV 
MOV 
MOV 
JSR 

ERRHRD 



CKLOOP 



PC.REWINO 
30i 

TSSR(R5).R1 
#SSR,R2 
R0.R4 
PC.FATCHK 

ERRN0.T26RUN.PKTSSR 



:CALL TAPE REWIND COMMAND 
:BR, IF NO PROBLEM 
:GET TSSR 

;SET UP EXPECTED TSSR 
.PACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 
.'REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



ERRORS 

CSERHRO 
283 
T26RWN 
PkTSSR 



TRAP CSCLPI 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 045746 
010102 

052702 000002 

020102 

001406 

004737 020100 

104456 
000434 
047115 



MOV T26BFR«6.R1 

MOV R1,R2 ^ 

BIS fBIT1,R2 

CMP R1.R2 

BEO 40i 

JSR PC.FATCHK 

ERRHRD ERRN0«T26B0T.EXPREC 



.PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

.'DOES EXP - REC'D 

;BR. IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.'TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 



CSERHRD 
284 
T26B0T 
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SEQ 174 



0A0556 

7180 0A0560 
040S60 

7181 040S62 

7182 040566 
7183 

7184 
718S 
7186 
7187 
7188 
7189 

7190 040574 

7191 040602 

7192 040606 

7193 040606 

7194 040612 

7195 040620 

7196 040626 

7197 040632 

7198 040636 

7199 040642 

7200 040646 

7201 040650 

7202 040652 
7206 

7207 
7208 

7209 040656 
0406S6 
040660 
040662 
040664 

7210 040666 
040666 

7211 040670 

7212 040672 

7213 040676 

7214 040700 

7215 040702 

7216 040702 
7217 

7218 
7219 
7220 
7221 
7222 
7221 

722U 040706 

7225 040712 

7226 040714 

7227 0(>0720 
722S M0722 
7212 040726 

040726 
040730 
040732 



016344 

104406 
012703 
013737 



40$: 



000400 
003072 



046052 



CKLOOP 
NOV 

nov 



.LOOP IF SELECTED 



«2S6.,R3 
FREE,T26RB 



.WORD 
TRAP 



'RECORD SIZE 
:STARTIN6 WRITE BUFFER ADDRESS 



EXPREC 
CSCLPl 



WRITE DATA,..C-1,ACK COIWAND 



012737 
012704 

010337 
013777 
062737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000435 
005011 
011700 

104406 
005723 
022703 
001401 
000742 



140005 
046050 

046056 
046076 
000001 
177776 
017120 
000000 
000200 



020100 



046050 



142252 
046076 



65$: 



fWV «140005,T26PK3 

nov «T26PK3.R4 

nov R3.T26S2 

nov T26CNT«aFREE 

ADD «1,T26CNT 

nov R4.TSOB(R5) 

JSR PC^WAITF 

nov TSSR(R5)«R1 

nov #SSR.R2 

CnP R1.R2 

BEQ 75$ 

JSR PCFATCHK 



ERRSOFT ERRNO.WRTERR,PKTSSR 



;WRITE DATA«CVC«nACK COnnAND 
:SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 
;n0VE TAPE RECORD NUnBER TO BUFFER 
;NUnBER READY FOR NEXT RECORD 
: ISSUE COnNAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
:BR« IF OK 

;INC AND CHECK FOR nORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
.WRITE COnnANO IS NOT BEING CHECKED 
;HER£. IT WAS CHECKED IN CZTUXA 
:TSSR INCORRECT AFTER REREAD DATA 



0004U 
00S037 046076 



75$: 



120$: 



CKLOOP 
TST 

cnp 

BEQ 
BR 

CLR 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERSOFT 
285 

WRTERR 
PKTSSR 



(R5)* 
#268. «R3 
120$ 
65$ 

T26CNT 



TRAP C$CLP1 



;BUnP THE RECORD SIZE 
:nAXINUN SIZE YET 
;6R{ IF AT END OF WRITE SEQUENCE 
.•WRITE nORE RECORDS 

;SET RECORD COUNTER BACK TO ZERO 



ISSUE REWIND COPBIANO TO SELECTED TAPE DRIVE 



004737 
103411 
016501 
010004 
004737 

104456 
000436 
047404 



010434 
000000 
020100 



JSR 
BCS 

nov 
nov 

JSR 

ERRHRD 



P^^REWIND 

TSSR(R5),R1 

R0«R4 

PC.FATCHK 

ERRN0«T26RWN.PKTSSR 



;CALL TAPE REWIND COnNANO 
;BR, IF NO PROBLEN 
:6ET TSSR 

.PACKET ADDRESS SET UP 

:INC AND CHECK FOR nORE THAN 25 ERRORS 

.•REWIND NOT ACCEPTED 

TRAP CSERHRD 
.WORD 286 
.WORD T26RWN 



CZTUVAO TU80 FRONT END PRT 
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040734 
7255 040736 
040756 

7254 
7235 
7236 
7237 
723a 
7239 
7240 

7241 040740 

7242 040744 

7243 040746 

7244 040752 

7245 040754 

7246 040756 

7250 040762 
040762 
040764 
040766 
040770 

7251 040772 
040772 

7252 040774 

7253 041002 
7254 

7255 
7256 
7257 
7258 
7259 
7260 
7261 

7262 041004 

7263 041010 

7264 041014 

7265 041016 

7266 041022 

7267 041026 
041030 
041034 
041034 
041056 
041040 
041042 

7275 041044 
041044 

7274 041046 

7275 041052 
7276 

7277 
7278 
7279 
7280 
7281 
7282 

7283 041060 



011700 
104406 



013701 
010102 
052702 
020102 
001406 
004757 

104456 
000457 
047115 
016544 

104406 
012757 
000420 



012705 
004757 
105415 
016501 
012702 
010004 
004757 

104456 
000440 
046517 
011700 

104406 
015705 
015757 



€ U 
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150t: CKLOOP 



SEO 



:V0» If SfUCTEt 



TMP 



PKTSSR 
CSCLP1 



READ KSSA6E BUFFER EXTENDED STATUS REGISTER ZERO (XSTO> 



045746 
000002 

020100 



NOV T26BFR^6,R1 

NOV R1,R2 

BIS «BIT1,R2 

CNP R1.R2 

BEG 155$ 

JSR PC«FATCHK 

ERRHRO ERRN0,T26B0T,EXPREC 



000400 046102 



I35t: CKLOOP 

NOV 
BR 



f2S6.,T26RSZ 
UOS 



:PICK UP XSTO 

;SET UP EXPECTED 

:SET BOX BIT IN EXPECTED 

.DOES EXP « REC'D 

:BR, IF EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REVIND 

TRAP 
.WORD 
.UORD 
.WORD 
;LOOP IF SELECTED 

TRAP 

; STARTING RECORD SIZE 
;SKIP OVER THE SAPCE THIS TINE 



CtERHRO 

T26B0T 
EXPREC 

CtCLPI 



.-ISSUE SPACE RECORDS COHHAND - VALUE IN R5 SETS NUHBER OF RECORDS 
;Bn 15 SETS DIRECTION - 0«FORWARD IsREVERSE 



000001 
01014;/ 

000000 
000200 

020100 



152S: 



046102 
005072 



140$: 
046052 150$: 



NOV 
JSR 
BCS 
NOV 
NOV 
NOV 
JSR 
ERRHRD 



CKLOOP 



#000001 .R5 

PC.SPACE 

140$ 

TSSR(RS>,R1 

PC.FATCHK 
ERRN0,T26SC,PKTSSR 



:SET UP SPACE CONNAND (1 FORWARD) 
;CALL SPACE ROUTINE 
:BR. IF NO TROUBLE 
:6ET TSSR 

;SET UP EXPECTED TSSR 
: PACKET ADDRESS SET UP 
:INC AND CHECK FCl NORE THAN 25 ERRORS 
:SPACE (FORWARD) FAILED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
288 
T26SC 
PKTSSR 



NOV 
NOV 



T26RSZ.R3 
FREE.T26R6 



.•RECORD SIZE 
.-STARTING READ BUTFER ADDRESS 



TRAP C$CLP1 



REREAD DATA«LVC«1.ACK. GPP COMMND 



012757 161401 046050 



NOV 



f 161401. T26PK5 



.•KEKEAB DATA,CVC*1.ACK. OPP COfWAND 



J 



H U 



CZTUVAO TU80 FRONT EPID PRT C 
TEST 2: REREADS 
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7284 
7285 
7286 
7287 
7288 
7289 
7290 
7291 
7292 
7296 



7297 

7298 
7299 
7300 
7301 
7302 
7306 



7307 

7308 
7309 
7370 
7311 
7312 
7313 
7iU 
7315 



7316 
7317 
7318 
7319 



OA1066 
041072 
041076 
041102 
041106 
041112 
041116 
041120 
041122 
041126 
041126 
041130 
041132 
041134 
041136 
041136 
041140 
041144 
041150 
041152 
041154 
041160 
041160 
041162 
041164 
041166 
041170 
041170 
041172 
041200 
041202 
041206 
041212 
041214 
041220 
041220 
041220 
041220 
041222 
041230 
041232 
041236 



012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000441 
046325 
011700 

104406 
017701 
013702 
020102 
001406 
004737 

104456 
000442 
046106 
016344 

104406 
062737 
005723 
010337 
022703 
001402 
000137 



104403 
023727 
002402 
004737 



046050 
046056 
177776 
017120 
000000 
000200 



020100 



141726 
046076 



020100 



000001 046076 

046102 
000412 

041004 

002170 000031 
020152 



165S: NOV 
fWV 

mv 

JSR 

mv 

NOV 
CNP 
BEQ 

JSR 

ERRHRD 



170S: CKLOOP 

NOV 
NOV 
CNP 
BEQ 

JSR 

ERRHRD 



190$: CKLOOP 

ADD 
TST 
NOV 
CNP 
BEQ 
JNP 



200$: 



999$: 



ENDSUB 



CNP 
BLT 
JSR 



«T26PK3.R4 

R3,T26S2 

R4,TSDB(R5) 

PCVAITF 

TSSR(R5),R1 

#SSR.R2 

R1.R2 

176$ 

PCFATCHK 

ERRN0,T26RRF«PKTSSR 



aFREE,R1 
T26CNT,R2 
R1.R2 
196$ 

PCFATCHK 

ERRNO.T26UN6,EXPREC 



#1-T26CNT 

(R3)* 

R3,T26RSZ 

#266 wR3 

200$ 

132$ 



FATFL6,#25. 
999$ 

PCCKDROP 



SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD SIZE IN PACKET 

ISSUE CONNAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEV EQUAL 

BR. IF OK 

INC AND CHECK FOR NORE THAN 25 ERRORS 
TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHRD 
.WORD 289 
.WORD T26RRF 
.WORD PKTSSR 

.LOOP IF SELECTED 

TRAP C$CLP1 
.•FIRST WORD FRON READ BUFFER 
;SET UP EXPECTED 
:IS TAPE POSITION CORRECT 
.KEEP GOING POSITION OK 
:INC AND CHECK FOR NORE THAN 25 ERRORS 
:TAPE POSITION INCORRECT 

TRAP C$ERHRD 
.WORD 290 
.WORD T26WNG 
.WORD EXPREC 

TRAP C$CLP1 
:BUNP TAPE RECORD COUNTER 
;NEXT RECORD SIZE 
: STORE RECORD SIZE 
;AT NAX SIZE YET 
:BR« IF AT END OF THE SUBTEST 
;KEEP GOING NORE RECORDS 

;»»»»»» END SUBTEST »»»»»» 
L10057: 

TRAP C$ESUB 
:IS ERROR COUNT AT 25 
;6R. IF LESS THAN 25 
;TRY TO DROP THE UNIT 



I u 



CZ'UtAO TU80 FRONT END PRT C 
TEST 2- REREADS 



7321 
7322 
7323 
732A 
7325 
7326 
7327 
7328 
7329 
7330 
7331 
7552 
7333 
7334 
7535 

7336 041236 
041236 
041236 

7337 041240 

7338 041244 

7339 041250 

7340 041254 
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TEST 2, SUBTEST 10 



VERIFIES THAT THE REREAD NEXT COmAND WITH 0PP«1 
AND SyB«1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS 
VERIFIED THAT DATA STORED BY THE CONNAND CONTAINS 
SWAPPED BYTES. 



7341 
7342 
7343 
7344 
7345 
7346 
7347 

7348 041260 

7349 041264 

7350 041266 

7354 041272 

7355 041274 
041274 
041276 
041300 
041302 

7356 041304 
7357 

7358 041304 

7359 

7360 

7361 

7362 

7363 

7364 

7365 

7366 041310 

7367 041314 

7368 041316 

7372 041322 

7373 041324 
041324 
041326 
041330 
041332 



104402 

004737 050640 

005037 046076 

004737 050732 

004737 050774 



BGNSUB 



JSR 
CLR 
JSR 
JSR 



PC,T26REST 

PC.T26RT2 
PC,T26RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.10: 

TRAP CS6SUB 

:SET CONNAND PACKET 
.•CLEAR TAPE RECORD COUNTER 
;SET IIP OTHER COMMAND PACKET 
.-SET UP OTHER COMMAND PACKET 



•ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 016644 
103407 

004737 020100 
010001 

104455 
000443 
003S50 
011666 



012704 045720 



JSR 
BCS 
JSR 
MOV 
ERROF 



PC.SOFINIT 
20i 

PCFATCHK 
R0,R1 

ERRN0«SFIERR.SFINS6 



;D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.•CONTENTS OF TSSR REGISTER 
;FATAL ERROR TSSR WAS NOT OK 



20$: 



TRAP 
.WORD 
.WORD 
.WORD 



CSERDF 
291 

SFIERR 
SFinSG 



NOV 



#T26PACKET,R4 



.•SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS CONNANO (CALL TO WRTCHR) 



004737 010332 
103407 

004737 020100 
010001 

104456 
000444 
004754 
011666 



JSR PC.WRTCHR 

BCS 261 

JSR PCFATCHK 

HOV RO.RI 

ERRHRD ERf^NO.WRTNSG.SFinSG 



;ISSUE WRITE CHARACTERISTICS 

;BR. IF COMMAND ISSUED OK 

:IN( and CHECK FOR MORE THAN 2S ERRORS 

;SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC FAILED 

TRAP CSERHRO 
.WORD 292 
.WORD WRTMSG 
.WORD SFIMSG 



CZTUVAO TU80 FRONT END PRT C 
TEST 2: REREADS 



J U 
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SEQ 178 



7374 041334 
041334 

7375 
7376 
7377 
7378 
7379 
7380 
7381 

7382 041336 

7383 041342 

7384 041346 
7585 041352 

7386 041354 

7387 041356 

7391 041362 
041362 
041364 
041366 
041370 

7392 041372 
0A1372 

7393 
7394 
7395 
7396 
7397 
7398 
7399 

7400 041374 

7401 041400 

7402 041402 

7403 041406 

7404 041410 

7405 041412 

7409 041416 
041416 
041420 
041422 
041424 

7410 041426 
041426 

7411 041430 

7412 041434 
7413 

7414 
7415 
7416 
7417 
7418 
7419 

7420 041442 

7421 041430 

7422 041454 

7423 041454 

7424 041460 

7425 041466 



104406 



26$: 



CKLOOP 



.LOOP IF SELECTED 



TRAP CSCLPI 



ISSUE REWIND COWfAND TO SELECTED TAPE DRIVE 



004737 010434 

016501 000000 

012702 000200 
103407 
010004 

004737 020100 

104456 
000445 
047404 
011700 

104406 



30S: 



JSR 
NOV 
NOV 
BCS 
NOV 
JSR 

ERRHRD 



CKLOOP 



PC, REWIND 

TSSR(R5)«R1 

«SSR.R2 

30S 

R0,R4 

PC.FATCHK 

ERRN0«T26RWN.PKTSSR 



:CALL TAPE REWIND CONNAND 
;GET TSSR 

.SET UP EXPECTED TSSR 
;BR. IF NO PR08LEN 
.•PACKET ADDRESS SET UP 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



;L00P IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

293 

T26RWN 
PKTSSR 



TRAP CSCLPI 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000446 
047115 
016344 

104406 
012703 
013737 



045746 
000002 

020100 



40$: 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRD 



CKLOOP 



T26BFR«6.R1 

R1.R2 

«BIT1.R2 

R1,R2 

40i 

PC.FATCHK 

ERRN0«T2660T,EXPREC 



000400 
003072 



046052 



MOV 
MOV 



#256. «R3 
FREE.T26RB 



.-PICK UP XSTO 

;S£T UP EXPECTED 

;SET BOT BIT IN EXPECTED 

.DOES EXP s REC'D 

:BR. IF EOUAL (OK) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

.LOOP IF SELECTED 

TRAP 

.•RECORD SIZE 

.•STARTING WRITE BUFFER ADDRESS 



CSERHRD 
294 

T26B0T 
EXPREC 

CSCLPI 



WRITE DATA.CVCsl.ACK COMMAND 



012737 140005 

012704 046050 

010337 046056 

013777 046076 

062737 000001 



046050 



141404 
046076 



65S: 



MOV #140005. T26PK3 

MOV «T26PK3«R4 

MOV R3.T26SZ 

MOV T26CNT.8FREE 

ADD »1,T26CNT 



.WRITE DATA.CVCsl.ACK COMMAND 
:SET UP R4 WITH PACKET ADDRESS 

.•SET UP RECORD SIZE IN PACKET 
.MOVE TAPE RECORD NUMBER TO BUFFER 
.•NUMBER READY FOR NEXT RECORD 



K U 



C2TUYA0 TU80 FRONT END PRT C 
TES^ 2: REI.EADS 
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SEQ 179 



7426 0AK7A 
7<.?7 041 SCO 
041504 
041510 
74 ^0 041514 

7431 041516 

7432 041520 
7436 

7437 
7438 

7439 041524 
041524 
041526 
041530 
041532 

7440 041534 
041534 

7441 041536 

7442 041540 

7443 041544 

7444 041546 

7445 041550 

7446 041550 
7447 

7448 
7449 
7450 

745 ? 
7452 
7453 

7454 041554 

7455 041560 
"•456 041562 

7457 041566 

7458 041570 

7462 041574 
041574 
041576 
041600 
041602 

7463 041604 
041604 

7464 
7465 
7466 

746 7 
7468 
7469 
7470 

7471 041606 

7472 041612 

7473 041614 
74 041620 

, .75 041622 
7476 041624 
7480 041630 
041630 



010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000447 
005011 
011700 

104406 
00S723 
022703 
001401 
000742 



004737 
103411 
016501 
010004 
004737 

104456 
000450 
047404 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

1044S6 



177776 
017120 
000000 
000200 



020100 



JSR 

mv 

NOV 
CHP 
BEQ 

JSR 



R4,TSOf)(R5) 

PCWAITr 

TSSR(R5)«R1 

fSSR.R2 

R1.R2 

75i 

PCFATCHK 



000414 
005037 046076 



75S: 



120$: 



ERRSOFT ERRNO,URTERR,PKTSSR 



CKLOOP 

TST (R3)* 

CMP #268. «R3 

BEQ 120S 

BR 65S 



; ISSUE COMMAND 
:UAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
;SET UP EXPECTED 
:ARE THEV EQUAL 
'BR IF OK 

■INC AND CHECK FOR MORE THAN 25 ERRORS 
;S0FT ERROR GENERATED BECAUSE THE 
;URITE COMMAND IS NOT BEING CHECKED 
;HERE. IT WAS CHECKED IN C2TUXA 
;TSSR INCORRECT AFTER WRITE DATA 



;L00P IF SELECTED 



TkAP 
.yORD 
.WORD 
.WORD 



CSERSOFT 
295 

WRTERR 
»>KTSSR 



TRAP CSCLP1 



CLR 



T26CNT 



;BUNP THE RECORD SIZE 
.•MAXIMUM SIZE YET 
;BR« IF AT END OF WRITE SEQUENCE 
; WRITE MORE RECORDS 

;SET RECORD COUNTER BACK TO ZEPO 



****************************************************************** 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



010434 
000000 
020100 



JSR 
BCS 
MOV 
NOV 
JSR 

ERRHRD 



130$: CKLOOP 



PC .REWIND 
13d$ 

TSSR(R5)«R1 

R0,R4 

PCFATCHK 

ERRNO,T26RWN,PKTSSR 



;CALL TAPE REWIND COMMAND 
;BR. IF, NO PROBLEM 
;GET TSSR 

.PACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
: REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
296 

T26RWN 
PKTSSR 



TRAP C$CLP1 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



045746 
000002 

020100 



NOV T268FR«6,R1 

NOV R1 .R2 

BIS fBIT1.R2 

CMP R1.R2 

BEQ 135$ 

JSR PCFATCHK 

ERRHRO ERRN0.T26B0T.EXPREC 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET 60T BIT IN EXPECTED 

;DOES EXP - REC'D 

:BR. IF EQUAL (OK) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
.TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 



L 14 
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SEO 180 



7481 



041632 
041634 
041636 
041640 
041640 
041642 
041 650 



7482 
7483 
7484 
7485 
7486 
7487 
7488 
M89 
7490 
7491 

7492 041652 

7493 041656 

7494 041662 

7495 041664 

7496 041670 

7497 041674 

7498 041676 

7502 041702 
041702 
041704 
041706 
041710 

7503 041712 
041712 

7504 041714 

7505 041720 
7506 

7507 
7508 
7509 
7510 
7511 
7512 

7513 041726 

7514 041734 

7515 041740 

7516 041744 

7517 041750 

7518 041754 

7519 041760 

7520 041764 

7521 041766 

7522 041770 

7526 041774 
041 /4 
041776 
042000 
042002 

7527 042004 
042004 

7528 042006 

7529 042012 



000451 
047115 
016344 

104406 
012737 
C00420 



012703 
004737 
103413 
016501 
012702 
010004 
004737 

104456 
000452 
046517 
011700 

104406 
013703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000453 
04632S 
011700 

104406 
017701 
013702 



000400 046102 



135$: CKLOOP 

HOV 
BR 



#256..T26RSZ 
140$ 



000001 
010140 

000000 
000200 

020100 



046102 
003072 



161401 
046050 
046056 
177776 
017120 
000000 
000200 



020100 



141060 
046076 



.WORD 
.WORD 
.WORD 
.•LOOP IP SELECTED 

TRAP 

: START RECORD SIZE 
;SKIP OVER SPACE 



297 

T2660T 

EXPREC 

CSCLP1 



ISSUE SPACE RECORDS COfWAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0*FORUARD IsREVERSE 



136$: 



NOV 
JSR 
BCS 
NOV 
NOV 
NOV 
JSR 



#000001 .R3 

PC.SPACE 

146$ 

TSSR(R5),R1 
«SSR,R2 

PC.FATCHK 



ERRHRD ERRNO,T26SC,PKTSSR 



140$: CKLOOP 

NOV T26RSZ,R3 
046052 150$: NOV FREE,T26RB 



;SET UP SPACE CONNAND (1 FORWARD) 
;CALL SPACE ROUTINE 
;BR, IF NO TROUBLE 
;6ET TSSR 

;SET UP EXPECTED TSSR 
;PACKET ADDRESS SET UP 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
;SPACE (FORWARD) FAILED 



TRAP 
.WORD 
.WORD 
.WORD 



;LOOP IF SELECTED 

.•RECORD SIZE 
.•STARTING READ BUFFER ADDRESS 



C$ERHRD 
298 
T26SC 
PKTSSR 



TRAP C$CLP1 



REREAD DATA.CVCsUACK, GPP CONNAND 



046050 



165$: 



NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 
ERRHRD 



170$: CKLOOP 



#161401. T26PK3 

#T26PK3.R4 

R3.T26SZ 

R4.TSDB(R5) 

PC.WAITF 

TSSR(R5).R1 

#SSR.R2 

R1.R2 

176$ 

PC.FATCMK 

ERRN0.T26RRF. PKTSSR 



.•REREAD DATA.CVC-I.ACK. OPP CONNAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
.ISSUE CONNAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
:ARE THEY EQUAL 
*BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER REREAD DATA 



.LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
299 
T26RRF 
PKTSSR 



NOV 
NOV 



aFREE.RI 
T26CNT.R2 



TRAP C$CLP1 



.'FIRST WORD FRON READ BUFFER 
:SET UP EXPECTED 



J 



n u 



C2TUYA0 TU80 FRONT END PRT C 
TEST 2: REREADS 



MACRO m200 29-nAR-83 13:43 PAGE 93-4 



7530 


042016 


020102 




7531 


042020 


001406 




7532 


0A2022 


004737 


A'\A4 AA 

020100 


7556 


0A2026 








042026 


104456 






042030 


000454 






042032 


£. ^ f\A. 

046106 






0A2034 


A4 A '9 i i 

016344 




7537 


042036 








042036 


104406 




7538 


042040 


062737 


AAAAA1 

000001 


7559 


042046 


005723 




7540 


042050 


AT 

010337 


A/ ^1 AO 

046102 


7541 


042054 


022703 


AAA/ 4 O 

000412 


7542 


042060 


AA4 / A^ 

001402 


041652 


7543 


042062 


AAA4 99 

000137 


7544 


042066 
















042066 








042066 


104403 




7546 


042070 


023727 


002170 


7547 


042076 


002402 


020152 


7548 


042100 


004737 


7549 


042104 







046076 



BEQ 

JSR 

ERRHRO 



190$: CKLOOP 

ADD 

TST 

mv 

CMP 
BEQ 
JNP 



220$: 



000031 



999$: 



ENDSUB 



CMP 
BLT 
JSR 



R1-R2 
196$ 

PC«FATCHK 

ERRN0,T26yNG«EXPREC 



#1,T26CNT 

(R3)* 

R3,T26RSZ 

«266.,R3 

220$ 

136$ 



FATFLG««2S. 
999$ 

PC«CKDROP 



IS TAPE POSITION CORRECT 

KEEP GOING POSITION OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 

TAPE POSITION INCORRECT 

TRAP C$ERHRD 

.yORD 300 

.WORD T26yNG 

.UORD EXPREC 

TRAP C$CLP1 
.BUMP TAPE RECORD COUNTER 
:NEXT RECORD SIZE 
.'STORE RECORD SIZE 
;AT MAX SIZf YET 
;BR, IF AT END OF THE SUBTEST 
;KEEP GOING MORE RECORDS 

;»»»»»» END SUBTEST »»»»»» 
LI 0060: 

TRAP C$ESUB 
:IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
:TRY TO DROP THE UNIT 



N U 



104A02 

00A737 050640 

004737 050732 

004737 050774 



CZTUYAO TU80 FRONT END PUT C 
TEST 2: REREADS 



7551 
7552 
7553 
7554 
7555 
7556 
7557 
7558 
7559 
7560 
7561 
7562 
7563 
7564 
7565 

7566 042104 
042104 
042104 

7567 042106 

7568 042112 

7569 042116 
7570 

7571 
7572 
7573 
'574 
7575 
7576 

7577 042122 

7578 042126 

7579 042130 

7583 042134 

7584 042136 
042136 
042140 
042142 
042U4 

7585 042146 
7586 

7587 042146 

7588 

7589 

7590 

7591 

7592 

7593 

7594 

7595 042152 

7596 042156 

7597 042160 

7601 042164 

7602 042166 
042166 
C42170 

042174 

7603 042176 
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SEO 182 



TEST 2, SUBTEST 11 

VERIFIES THAT A REREAD NEXT COMMAND READING A 
RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
LONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
STATES OF OPP (0 hND 1). 



BGNSUB 



JSR 
JSR 
JSR 



PC,T26REST 

PC.T26RT2 

PC,T26RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.11: 

TRAP C$BSUB 

;SET COMMAND PACKET 

:SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 016644 
103407 

004737 020100 
010001 

104455 
000455 
003550 
011666 



012704 045720 



JSR 
BCS 
JSR 
NOV 
ERRDF 



PC.SOFINIT 
20i 

PC.FATCHK 
R0,R1 

ERRNO,SFIERR,SFINSG 



:D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
; CONTENTS OF TSSR REGISTER 
; FATAL ERROR TSSR WAS NOT OK 



20S: 



TRAP 
.UORD 
.UORO 
.WORD 



CSERDF 
301 

SFIERR 
SFINS6 



NOV 



#T26PACKET,R4 



.•SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 010332 
103407 

004737 020100 
010001 

104456 
000456 
004754 
011666 



JSR 
BCS 
JSR 
NOV 
ERRHRD 



26S: CKLOOP 



PC.WRTCHR 
26i 

PC.FATCHK 
RO.RI 

ERRN0,WRTNS6,SFINSG 



: ISSUE WRITE CHARACTERISTICS 

:BR, IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 2S ERRORS 

.-SAVE CONTENTS OF TSSR 

:WRITE CHARACTERISTISC FAILED 

TRAP CSERHRD 
.WORD 302 
.WORD WRTMSG 
.WORD SFIMSG 

;LOOP IF SELECTED 



B 15 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 
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7604 
7605 
7606 
7607 
7608 
7609 
7610 
7611 
7612 
7613 
7614 
7615 
7616 
7630 



7621 

7622 
7623 
7624 
7625 
7626 
7627 
7628 
7629 
7630 
7651 
7632 
7633 
7634 
7638 



7639 

7640 
7641 
7642 
7643 
7644 
7645 
7646 
7647 
7648 
7649 
7650 
7651 
7652 
7653 
765<i 
7655 



042176 104406 



042200 


004737 


010434 


042204 


016501 


000000 


042210 


012702 


000200 


042214 


103407 




042216 


010004 




042220 


004737 


020100 


042224 






042224 


104456 




042226 


000457 




042230 


047404 




042232 


011700 




042234 






042234 


104406 





042236 
042242 
042244 
042250 
042252 
042254 
042260 
042260 
042262 
042264 
042266 
042270 
042270 
042272 
042276 



CA2 304 
042312 
042316 
042316 
042322 
042326 
042332 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000460 
047115 
016344 

104406 
012703 
013737 



012737 
012704 

010337 
010465 
004737 
016*501 



045746 
000002 

020100 



001000 
003072 



140005 
046050 

046056 
177776 
017120 
000000 



TRAP CfCLPI 



ISSUE REWIND COHNAND TO SELECTED TAPE DRIVE 



JSR 
MOV 
MOV 

BCS 
MOV 
JSR 



PC, REWIND 
TSSR(R5>,R1 
«SSR.R2 
30$ 
R0,R4 
PC.FATCHK 



30$: 



ERRHRD ERRN0,T26RWN«P<TSSR 



CKLOOP 



:CALL TAPE REWIND COMMAND 
;GET TSSR 

;SET UP EXPECTED TSSR 
:BR, IF NO PROBLEM 
.•PACKET ADDRESS SET UP 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



C$ERHRD 
303 

T26RWN 
PKTSSR 



C$CLP1 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
****************************************************************** 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 



T26BFR^6,R1 

R1.R2 

ITBITI^RZ 

R1.R2 

40i 

PC.FATCHK 



ERRHRD ERiiN0,T26B0T«EXPREC 



40$: 



046052 



CKLOOP 

MOV 
MOV 



IV512..R3 
FREE.T26RB 



;PICK UP XSTO 

;S£T UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 304 
.WORD T26B0T 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 

.RECORD SIZE 

.•STARTING WRITE BUFFER ADDRESS 



****************************************************************** 

WRITE DATA.CVC^I.ACK COMMAND 

************************************* ****** *********************** 



046050 



65$: 



MOV #140005. T26PK3 

MOV «T26PK3.R4 

MOV R3.T26SZ 

MOV R4.TSDB(R5) 

JSR PC.WAITF 

MOV TSSR(R5).R1 



.•WRITE DATA.CVC=1.ACK COMMAND 
.•SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 
.•ISSUE COMMAND 
.•WAIT FOR SSR TO SET 
.•GET TSSR CONTENTS 



C2TUYA0 ru80 FQONT END PRT C 
TEST 2: REREADS 



r 15 
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>EQ 184 



^656 042336 

7657 042342 

7658 042344 

7659 042346 
7663 

7664 
7665 

7666 042352 
042352 
042354 
042356 
042360 

7667 042362 
042362 

7668 
7669 
7670 
7671 
7672 
7673 
7671* 

7675 042364 

7676 042370 

7677 042374 

7678 042400 

7679 042402 

7680 042404 

7684 042410 
042410 
042412 
042414 
042416 

7685 042420 
042420 

7686 
7687 
7688 
7689 
7690 
7691 
7692 

7693 042422 

7694 042426 

7695 042430 

7696 042434 

7697 042436 

7698 042440 

7702 042444 
042444 
042446 
042450 
042452 

7703 042454 
042454 

7704 042456 

7705 042460 
7706 



012702 000200 

020102 

001406 

004737 020100 



104457 
000461 
005011 
011700 

104406 



MOV 
CMP 
BEQ 
JSR 



#SSR.R2 

R1,R2 

V5i 

PC.FATCHK 



ERRSOFT ERRNG.WRTERR.PKTSSR 



75$: CKLOOP 



:SET UP EXPECTED 
;ARE THEr EQUAL 
*BR IF OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.-SOFT ERROR GENERATED BECAUSE THE 
;URITE COHNAND IS NOT BEING CHECKED 
;h£RE. IT WAS CHECKED IN CZTUXA 
;TSSR INCORRECT AFTER WRITE DATA 

TRAP CSERSOFT 

.WORD 

.WORD 

.WORD 

.'LOOP IF SELECTED 

TRAP 



305 
WRTERR 
PKTSSR 



CSCLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004737 010434 

016501 000000 

012702 000200 
103407 
010004 

004737 020100 

104456 
000462 
047404 
011700 

104406 



JSR 
MOV 
MOV 
BCS 
MOV 
JSR 
ERRHRD 



130$: CKLOOP 



PC, REWIND 

TSSR(R5),R1 

«SSR,R2 

130$ 

R0«R4 

PCFATCHK 

ERRN0«T26RWN,PKTSSR 



;CALL TAPE REWIND COMMAND 
:GET TSSR 

;SET UP EXPECTED TSSR 
;BR« IF NO PROBLEM 
.'PACKET ADDRESS SET UP 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERNRD 
306 

T26RWN 
PKTSSR 



TRAP C$CLP1 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 045746 
010102 

052702 000002 

020102 

001406 

004737 020:00 

104456 
000463 
047115 
016344 

104406 
005303 

013737 003072 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 



T26BFR*6«R1 
R1.R2 , 
«BIT1.R2 
R1.R2 
146$ 

PCFATCHK 



ERRHRD ER6nO,T26BOT,EXPREC 



046052 



140$: CKLOOP 

DEC 
MOV 



R3 

FREE,T26RB 



:PICK UP XSTO 

;SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

:DOES EXP = REC*D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

:LOOP IF SELECTED 

TRAP 

:SET RECORD SIZE TO 511. 
: STARTING READ BU. 'ER ADDRESS 



C$ERHRD 
307 
T26B0T 
EXPREC 

C$CLP1 



CZTUVAO TU80 FRONT END PRT C 
TEST 2: REREADS 



7707 
7708 
7709 
7710 
7711 
7712 

771 : 



0A2466 

7714 042474 

7715 042500 
?716 042504 

7717 042510 

7718 042514 

7719 042520 

7720 042524 

7721 042526 

7722 042530 

7726 042534 
042534 
042536 
042540 
042542 

7727 042544 
042544 

7728 
7729 
7710 
7731 
7732 
7733 
7734 

7735 042546 

7736 042552 

7737 042554 

7738 042560 

7739 042562 

7740 042564 

7744 042570 
042570 
042572 
042574 
042576 

7745 042600 

7746 042600 

7747 042604 
7748 

7749 
7750 
7751 
7752 
7753 
7754 

7755 042612 

7756 042620 

775 7 042624 

7758 042630 

7759 042634 

7760 042640 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000464 
050462 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000465 
050230 
016344 

012703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 



161401 
046050 
046056 
177776 
017120 
000000 
100204 



020100 



045746 
010000 

020100 



000777 
003072 



141401 
046050 
046056 
177776 
017120 
000000 
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SEQ 185 



REREAD DATA.CVC«KACK.0PP«1 COffMND 



046050 



■lOV 

16SS: mv 

NOV 
HOV 

JSR 

my 

NOV 
CHP 
BEQ 
JSR 

ERRHRD 



170$: CKLOOP 



#161401, T26PK3 

«T26PK3,R4 

R3,T26SZ 

R4.TSDB(R5) 

PC.UAITF 

TSSR(R5),R1 

#SSR!SC!BIT2«R2 

R1.R2 

176$ 

PCFATCHK 

ERRN0,T26TRL«PKTSSR 



;REREAD DATA«CVC»1 ,ACK«0PP-1 COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

:SET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

;UA;T FOR SSR TO SET 

;6ET TSSR CONTENTS 

;SET UP EXPECTED 

:ARE THEY EQUAL 

;BR, IF OK 

:INC AND CHECK FOR MORE THAN 2S ERRORS 
;TSSR INCORRECT AFTER REREAD DATA 



:L00P IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
308 
T26TRL 
PKTSSR 



TRAP C$CLP1 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



180$: 



046052 



MOV T2fBFR^6,R1 

MOV R1 ,R2 

BIS «BIT12,R2 

CMP R1.R2 

BEQ 180$ 

JSR PCFATCHK 

ERRHRD ERRN0,T26L0N,EXPREC 



MOV f511.,R3 
MOV FREE,T26RB 



;6ET 
;SET 
;SET 
:ARE 
;BR, 
;INC 
;THE 



MESSAGE BUFFER 
UP EXPECTED 

THE RLL BIT IN EXPECTED 
THEY EQUAL 

IF EQUAL (ALL IS WELL) 

AND CHECK FOR MORE THAN 25 ERRORS 

RLL BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 
.WORD 309 
.WORD T26L0N 
.WORD EXPREC 



;$ET UP SIZE OF RECORD 
.•STARTING READ BUFFER ADDRESS 



REREAD DATA,CVCs1,ACK COMMAND 



046050 



MOV «UU01,T26PK3 

365$: MOV »T26PK3,R4 

MOV R3.T26SZ 

MOV R4«TS0B(R5) 

JSR PC.WAITF 

MOV TSSR(R5).R1 



;REREAD DATA^CVC^UACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 
.-WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 



C2TUYA0 TU80 FRONT END PRT C 
TEST 2: REREADS 



E IS 

MACRO HI 200 29-nAR-83 13:43 PAGE 94-4 



SEO 186 



776} 042644 

7762 042650 

7763 042652 

7764 042654 

7768 042660 
042660 
042662 
042664 
042666 

7769 042670 
042670 

7770 
777} 
7772 
7771 
777i, 
7775 
7776 

7777 042672 

7778 042676 

7779 042700 

7780 042704 
042706 

710 
714 
042714 
042716 
042720 
042722 

7787 042724 

7788 042724 
042724 
042724 

7789 042726 

7790 042734 

7791 042736 

7792 042742 



7781 
7782 04 
7786 04 



012702 100204 

020102 

001406 

004737 020100 

104456 
000466 
050462 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
016344 



104A03 
023727 
002402 
00473? 



KOV 
CW» 
BEQ 

JSR 

ERRHRD 



370$: CKLOOP 



»SSR!SC!BIT2.R2 

R1.R2 

376$ 

PCFATCHK 

ERRN0,T26TRL.Pi;TSSR 



SET UP EXPECTED 
ARE THEY EQUAL 
BR, IF OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 
TSSR INCORRECT AFTER REREAD DATA 



;LOOP IF SELECTED 



TRAP 
.yORD 
.WORD 
.WORD 



CtERHRD 
310 
T26TRL 
PKTSSR 



TRAP CSCLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
****************************************************************** 



045746 
010000 

020100 



380$: 



mv 
mv 

BIS 

cw» 

BEQ 

JSR 

ERRHRD 



ENDSUB 



T26BFR«6«R1 

R1«R2 

«BIT12«R2 

RI4R2 

386$ 

PC.FATCHK 

ERRN0,T26L0N,EXPREC 



0021 70 
020152 



000031 



999$: 



CHP 
BLT 
JSR 



FATFLG,#25. 
999$ 

PCCKDROP 



;6ET MESSAGE BUFFER 

:SET UP EXPECTED 

:SET THE RLL BIT IN EXPECTED 

;ARE THEY EQUAL 

;BR, IF EQUAL (ALL IS WELL) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;THE RLL BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 
.WORD 311 
.WORD T26L0N 
.WORD EXPREC 

;»»»»»» END SUBTEST »»»»»» 
LI 0061: 

TRAP C$ESUB 
.IS ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 



F 15 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 



779A 
7795 
7796 
779' 
7798 
7799 
^800 
?801 
7802 
7803 
7804 
7805 
7806 
7807 
^808 
('809 
7810 
7811 
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TEST 2. SUBTEST 12 

VERIFIES THAT A REREAD NEXT COHNAND READING A 
RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 
RESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER 
CONTAINS THE PROPER NONZERO VALUE (E.G., THE 
DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
ACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
STATES OF OPP (0 AND 1). 



SEQ 183 



04?742 
042742 
0427A2 

7812 042744 

7813 042750 

7814 042754 
7815 

7816 
78 V 
7818 
7819 
7820 
78? 1 

7822 042760 
7825 042764 
7824 042766 
^828 Oi,2772 
78P9 042774 
042^74 
042776 
043000 
04^002 
'8!0 043004 
7851 

7832 043004 

7833 

7854 

7855 

7836 

7837 

7838 

7839 

7840 043010 

7841 043014 

7842 043016 

'rfi^ ml 

043C^4 
043026 
043030 



104402 

004737 050640 

004737 050732 

00473* 050774 



004737 016644 
103407 

004737 020100 
010001 

104455 
000470 
003550 
011666 



012704 045720 



004737 010532 
1034Q7 

004737 020100 
010001 

104456 
000471 
004754 



BGNSUB 



JSR 
JSR 
JSR 



PC.T26REST 

PC.T26RT2 

PC,T26RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.12: 

TRAP CS6SUB 

;SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

:SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT** INITIALIZE - CARRY BIT CLEAR IF ERROR 



JSR 
BCS 
JSR 
MOV 
EftRDF 



PC.SOFINIT 
20i 

PCFATCNK 
R0.R1 

ERMIO^SFIERR.SFinSG 



20S: 



NOV 



fT26PACKET,R4 



;D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 312 
.WORD SFIERR 
.WORD SFIMSG 



.•SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COWIANB (CALL TO WRTCNR) 



JSR PC.WRTCHR 

BCS 26i 

JSR PC.FATCNK 

MOV R0-R1 

ERRHRD ERRNO.WRTNSG. SFIMSG 



.•ISSUE WRITE CHARACTERISTICS 

;BR. IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 2S ERRORS 

;SAVE CONTENTS OF TSSR 

.•WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 

.WORD WRTMSG 



RHRD 



CZTUVAO TU80 FRONT £N0 PftT C 
TE<;T 2: REREADS 



7849 
7^50 
7851 
7852 
7853 
785A 
7855 
7856 
7857 
7858 
7859 
7860 
7861 
7865 



7866 

7867 
78o8 
7869 
7870 
/871 
7872 
7873 
7874 
7875 
7876 
7877 
7878 
7879 
7883 



7884 

7885 
?886 

^S87 

7889 
7890 

7891 
7892 
7tJ93 
7S9i. 



043032 
043034 
043034 



043036 
045042 
043046 
043052 
043054 
043056 
043062 
043062 
045064 
0<.3066 
043070 
045072 
043072 



043074 
043100 
043102 
043106 
043110 
043112 
043116 
043116 
043120 
043122 
043124 
043126 
043126 
043130 
043134 



045U2 
043150 

04315^ 
04 3160 



011666 
104406 



6 IS 
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26S: CKLOOP 



SEO 18a 



;LOOP IF SELECTED 



.MWD 
TRAP 



SFIMSC 
CSCLPI 



ISSUE REUIM) COWMND TO SELECTED TAPE DRIVE 



004737 010434 

016501 000000 

012702 000200 
103407 
010004 

004737 020100 

10445^ 
000472 
047404 
011700 

104406 



30$: 



JSR 
MOV 
MOV 
BCS 
MOV 
JSR 

ERRHRD 



CKLOOP 



PC«REUIND 

TSSR(RS>«R1 

#SSR«R2 

30$ 

R0«R4 

PCFATCHK 

ERRIli0«T26RUN.PKTSSR 



.•CALL TAPE REWIND COffUND 

:GET TSSR 

; SET UP EXPECTED TSSR 
:BR« IF NO PROBLEM 
.-PACKET ADDRESS SET UP 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
.-REWIND NOT ACCEPTED 



.-LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
314 

T26RUN 
PKTSSR 



TRAP C$CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000473 
047115 
016344 

104406 
012703 
013737 



045746 
000002 



020100 



MOV T26BFR*6.R1 

MOV R1.R2 

BIS «8IT1«R2 

CMP R1.R2 

BEQ 40$ 

JSR PC.FATCHK 

ERRHRD ERmiO,T26BOT«EXPREC 



40$: 



00307; 



046052 



CKLOOP 

NOV 
MOV 



#256., R3 
FREE.T26RB 



.-PICK UP XSTO 

.SET UP EXPECTED 

.-SET BOT BIT IN EXPECTED 

:DOES EXP s REC*D 

:BR. IF EOUAL (OK) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
WORD 

.LOOP IF SELECTED 

TRAP 

.RECORD SIZE 

.-STARTING WRITE BUFFER ADDRESS 



C$ERHRD 

315 

T26B0T 
EXPREC 

C$CLP1 



.WRITE 0ATA«CVCs1,ACK COMMAND 



012737 140005 
012704 046050 



046050 



010337 
010465 



046056 
177776 



65$: 



MOV #1 40005. T26PK3 

MOV #T26PK3,R4 

MOV R3,T26S2 

MOV R4.TSDB(RS) 



: WRITE DATA.CVC^I.ACK COMMAND 
.-SET UP R4 WITH PACKET ADDRESS 

.-SET UP RECORD SIZE IN PACKET 
.-ISSUE COMMAND 



C 2 Tut AO TuaO FRONT END PRT 
TfcST 2: REREADS 



'899 
/VOO 
7901 
?9u2 
79C5 
'90A 
7908 
7909 
7910 
7911 



7912 

7913 
79U 
791 S 
7916 
7917 
7918 
7919 
7920 
7921 
7922 
7923 
7924 
7925 
7926 
7930 



7931 

7952 
7933 

7935 
7956 
7957 
7938 
7939 
79A0 
7941 
7942 
7943 
7944 
7948 



7949 



0431W 
043170 
043174 
043?00 
043202 
043204 



043210 
043210 
045212 
043214 
C45216 
045220 
043220 
043222 



043222 
043226 
043232 
043236 
043240 
043242 
043246 
043246 
043250 
043252 
043254 
043256 
043256 



043260 
045264 
045266 
045272 
043274 
043276 
043502 
045502 
045304 
043306 
043310 
045312 
04331? 
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SEQ 189 



004757 
016501 
012702 
020102 
001406 
004737 



104457 
000474 
005011 
011700 

104406 



004737 
016501 
012702 
103407 
010004 
004737 

104456 
000475 
047404 
011700 

104406 



013701 
010102 
052702 
020102 
0C1406 
004737 

104456 
000476 
047115 
016344 

104406 



017120 
000000 
000200 



020100 



m 

NOV 
MOV 

cr? 

BEQ 
JSR 



PC.WAITF 

TSSR(ftS),R1 

«SSR.R2 

R1.R2 

75i 

PC.FATCHK 



75$: 
120$: 



ERRSOFT ERRNO.WRTERR.PKTSSR 



CKLOOP 



:UAIT FOR SSR TO SET 
:6ET TSSR CONTENTS 
.SET UP EXPECTED 
:ARE THEV EQUAL 
*BR IF OK 

;IN{ and check FOR MORE THAN 25 ERRORS 
.-SOFT ERROR GENERATED BECAUSE THE 
; WRITE COrWAND IS NOT BEING CHECKED 
:HERE. IT WAS CHECKED IN CZTUXA 
;TSSR INCORRECT AFTER MITE DATA 

TRAP CSERSOFT 

.WORD 

.UORD 

.WORD 

.LOOP IF SELECTED 

TRAP 



316 
WRTERR 
PKTSSR 



CSCLPI 



A***************************************************************** 

ISSUE REWIND COMNAND TO SELECTED TAPE DRIVE 

A***************************************************************** 



010434 
000000 
000200 



020100 



JSR 

nov 

NOV 
BCS 
NOV 
JSR 



PC. REWIND 
TSSR(RS).R1 
«SSR,R2 
130$ 
R0.R4 
PCFATCMK 



130$: 



ERRHRD ERiiN0«T26RWN,PKTSSR 



CKLOOP 



;CALL TAPE REWIND CONNAND 
:GET TSSR 

;SET UP EXPECTED TSSR 
;BR. IF NO PROBLEN 
.•PACKET ADDRESS SET UP 
:INC AND CHECK FOR NORE THAN 2S ERRORS 
.•REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
yORD 

;LOOP IF SELECTED 

TRAP 



CSERHRD 

317 

T26RWN 
PKTSSR 



CSCLPI 



•READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO <XSTO) 



045746 

000002 

020100 



nov 
nov 

BIS 
CNP 
BEQ 

JSR 

ERRHRD 



135$: CKLOOP 



T26BFR>6.R1 

R1.R2 

fBIT1,R2 

R1.R2 
13$$ 

PC-FATCHK 

ERRN0.T2660T.EXPREC 



.-PICK UP XSTO 

; SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

;DOES EXP = REC*D 

;BR. IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 



.LOOP IF 



TRAP 
.WORD 
.WORD 
.WORD 
SELECTED 

TRAP 



CSERHRD 
318 
T26B0T 
EXPREC 

C$CLP1 



CZTUYAO TU80 FRGMT END PRT C 
TEST 2: REREADS 
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SEQ 190 



7950 043314 

7951 043320 
795; 
795 ! 
7954 
7955 
7956 
7957 
7958 



012703 
013737 



001000 
003072 



046052 



MOV 
NOV 



fS12.,R3 
FREE,T26RB 



;REC0RD SIZE 

.-STARTING READ BUFFER ADDRESS 



REREAD NEXT,ACK,CVC=1,0PP«1 



79S9 




012757 


161401 046050 


7960 


043354 


012704 


046050 


79A1 


045540 


010537 


046056 


7962 


045544 


010465 


177776 


7965 


045550 


004757 


017120 


7964 


04555A 


016501 


000000 


7965 


043560 


012702 


100204 


7966 

,'967 


043364 


020102 




043366 


001406 




7968 


045370 


004737 


020100 


7972 


043374 
043374 
043376 


104456 
000477 






043400 


05C462 

or *oo 






043402 




7973 


043404 
C-5404 


104406 





165$: 



NOV 
NOV 
NOV 

nov 

JSR 
NOV 
MOV 
CNP 
BEQ 
JSR 

ERRHRD 



170$: CKLOOP 



#161401,T26PK3 

#T26PK3,R4 

R3,T26SZ 

R4,TSDB(R5) 

PC.W/.ITF 

TSSR(R5),R1 

#SSR!SC!BIT2,R2 

R1.R2 

176$ 

PCFATCHK 

ERRN0,T26TRL«PKTSSR 



.-REREAD N£XT.ACK,CVC=1.0PPa1 
:SET UP R4 WITH PACKET ADDRESS 
.-SET UP RECORD SIZE IN PACKET 
.•ISSUE COMPIAND 
;WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
.SET UP EXPECTtD 
;ARE THEY EQUAL 
*BR IF OK 

\lHt AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 



C$CRHRO 
319 
T26TRL 
PKTSSR 



C$CLP1 



7974 
7975 
7976 
7977 
7978 
7979 



•READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



7980 








7981 


043406 


013701 


045746 


7982 


043412 


010102 


040000 


7983 


043414 


052702 


7984 


Oh 3420 


020102 




7985 


043422 


00U06 


020100 


7986 


043424 


004737 


7990 


043430 








043430 


104456 






043432 


000500 






043434 


050312 






043436 


016344 




7991 


04344C 






7992 


043440 


013701 


045744 


7993 


043444 


012702 


000400 


7994 


043450 


020102 




7995 


043452 


001405 




7999 


0434S6 








0434S6 


104456 






043460 


000500 






043462 


050374 






043464 


016344 




8000 


043466 








045466 


104406 




8001 


043470 


Q\270Z 


001000 



180$: 



MOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



NOV 
NOV 
CNP 
BEQ 
ERRHRD 



T266FR46.R1 

R1,R2 

f8nU.R2 

R1-R2 

186$ 

PC.FATCHK 

ERRN0.T26L0P.EXPREC 



T266FR^4.R1 
#256., R2 



R1.R2 
196$ 

ERRN0.T26P8P,EXPREC 



:GET NESSAGE BUFFER 

;SET UP EXPECTED 

.•SET THE RLS BIT IN EXPECTED 

.ARE THEY EQUAL 

;BR, IF EQUAL (ALL IS WELL) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.•THE RLL BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 
.WORD 320 
.WORD T26L0P 
.WORD EXPREC 

.-PICK UP RESIDUAL BYTE COUNTER 
;THIS SHOULD BE THE DIFFERENCE 
;IS THE DIFFERENCE CORRECT 
;BR. IF CORRECT 
:RBPCR NOT CORRECT 



190$: 



CKLOOP 

NOV fS12..R5 



.-LOOP IF SELECTED 
.•RECORD SIZE 



TRAP 
.WORD 
.WOP*-' 
.WORC 



C$ERHRD 
320 
'26PBP 
:XPREC 



TRAP C$CLP1 



CZTUVAO TU80 FRONT END PRT C 
TEST 2: REREADS 
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SEQ 191 



8002 
8003 
8004 
8005 
8006 
8007 
8008 
8009 
8010 
8011 
8012 
8013 
80U 
8015 
8016 
8017 
8018 
8019 
8U23 



8024 

8025 
8026 
8027 
8028 
8029 
8030 
8031 
8032 
8033 
8054 
8035 
8036 
8037 
8041 



8042 
8043 
8044 
8045 
8046 
8050 



8051 
8052 



043474 013737 003072 0460S2 



NOV 



FREE,T26RB 



.•STARTING READ BUFFER ADDRESS 



043562 
043566 
043570 
043574 
043576 
043600 
043604 
043604 
043606 
043610 
043612 
043614 
043614 
043620 
043624 
043626 
043632 
043632 
043634 
043636 
043640 
043642 
043642 
043644 
043644 



REREAD NEXT«ACK,CVC«1,0PF»0 



043502 


012737 


141401 046050 


NOV 


043510 


012704 


046050 


NOV 


043514 


010337 


046056 


NOV 


043520 


010465 


177776 


NOV 


043524 


004737 


017120 


JSR 


043550 


016501 


000000 


NOV 


045534 


012702 


100204 


NOV 


043540 


020102 




CNP 


043542 


001406 




BEG 


045544 


004757 


020100 


JSR 


045550 






ERRHRD 


043550 


104456 






045552 


000501 






045554 


050462 






045556 


011700 






045560 




270$: 


CKLOOP 


045560 


104406 







#141401 ,T26PK3 

#T26PK3,R4 

R3,T26S2 

R4JSDB(R5) 

PCWAITF 

TSSR(R5),R1 

#SSR!SC!BIT2,R2 

R1.R2 

276$ 

PC.FATCHK 

ERRN0.T26TRL«PKTSSR 



REREAD NEXTtACIC,CVC*1,0PP=0 

SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD SIZE IN PACKET 

ISSUE CONHAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

INC AND CHECK FOR NORE THAN 25 ERRORS 
TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



C$ERMRD 
321 

T26TRL 
PKTSSR 



C$CLP1 



READ NESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 045746 
010102 

052702 040000 

020102 

001406 

004737 020100 

104456 
000502 
050312 
016344 



013701 
012702 
020102 
001405 

104456 
000502 
050374 
016344 

1044.06 



045744 
000400 



280$: 



290$: 



NOV 
NOV 

BIS 
CNP 
BEQ 

JSR 

ERRHRD 



NOV 
NOV 
CNP 
BEQ 
ERRHRD 



CKLOOP 
ENDSUB 



T26BFRt6.Rl 

R1.R2 

«BIT14,R2 

R1.R2 

286$ 

PC.FATCHK 

ERRN0.T26L0P.EXPREC 



T26BFR>4.R1 
#256.. R2 
R1-R2 
296$ 

ERRNO.T26PBP.EXPREC 



:GET NESSAGE BUFFER 

.♦SET UP EXPECTED 

:SET THE RLS BIT IN EXPECTED 

;ARE THEY EQUAL 

;BR. IF EQUAL (ALL IS WELL) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:THE RLL BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 
.WORD 322 
.WORD T26L0P 
.WORD EXPREC 

:PICK UP RESIDUAL BYTE COUNTEt< 
:THIS SHOULD BE THE DIFFERENCE 
:IS THE DIFFERENCE CORRECT 
:BR. IF CORRECT 
:RBPCR NOT CORRECT 



.LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 

322 

T26PBP 
EXPREC 



TRAP C$CLP1 



;»»»»»» END SUBTEST »»»»»» 
L10062: 



CZTUYAO TUPJ FRONT END PRT 
TEST 2: Rf^EAOS 



043644 

8053 043646 

8054 043654 

8055 04^56 

8056 043662 



104403 
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002170 000031 
0201 S2 



999$: 



CHP 
BLT 
JSR 



fATFLG.f25. 
999$ 

PCCKOROP 



TRAP C$ESU8 
:IS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 



L 15 



CZTUVAO TU80 FRONT END PRT C 
TEST 2: REREADS 



80S8 
8059 
8060 
8061 
8062 
8063 
806A 
8065 
8066 
8067 
8068 
8069 
8070 
8071 
8072 
8073 



8074 
8075 
8076 
8077 
8078 
8079 
8080 
8081 
8082 
8083 
8084 
8085 
8086 
8087 
8088 
8089 
8090 
8094 
8095 



8096 
8097 
8098 
8099 
8100 
8101 
8t02 
8103 
8104 
8^05 
8106 
8107 
8108 
?V3 
SIM 



043662 
043662 
043662 
043664 
043670 
043672 
043676 
043702 
043706 
043712 



104402 
005737 
001402 
000137 
004737 
005037 
004737 
004737 



043716 
043722 
043724 
043730 
043732 
043732 
043734 
043736 
043740 
043742 



043746 
045752 
045754 
043760 
045762 
:43762 



MACRO HI 200 29-fUR-83 13:43 PAGE 96 



TEST 2, SUBTEST 13 



>fO ^91 



003100 

044642 
050640 
046076 
050732 
050774 



004737 016644 
103407 

004737 020100 
010001 

104455 
000503 
003550 
011666 



043742 012704 045720 



004737 010332 
103407 

004737 020100 
010001 

104456 



VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
NONEXISTENT HEMORY CAUSES RECOVERABLE ERROR 
TERMINATION (TC^A OR 5) WITH NXrm AND THAT THE TAPE 
IS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS 
OF REREAD PREVIOUS/NEXT AND OPP^O/I ARE TESTED. 



9$: 



10$: 



BGNSUB 



TST 
6EQ 
JMP 
JSR 
CLR 
JSR 
JSR 



KTFLG 

10$ 

200$ 

PC,T26REST 
T26CNT 
PC.T26RT2 
PC,T26RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.13: 

TRAP C$BSUB 

.•CHECK FOR KT11 
:BR. IF NO KT11 
.SKIP TEST IF KT11 
:SET COMMAND PACKET 
.•CLEAR TAPE RECORD COUNTER 
.•SET UP OTHER COMMAND PACKET 
:SET UP OTHER COMMAND PACKET 



****************************************************************** 

ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
****************************************************************** 



JSR 
6CS 
JSR 
MOV 
ERRDF 



PC.SOFINIT 
20$ 

PC.FATCHK 
R0.R1 

ERRNO.SFIERR.SFIMSG 



20$: 



MOV 



«T26PACKET.R4 



;D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

.•FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 323 
.WORD SFIERR 
.WORD SFIMS6 



.•SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 

••*•****♦*****************♦****♦*******♦**♦♦*•*•♦*♦****♦♦♦♦♦♦♦♦♦♦• 



JSR PC .URTCHR 

BCS 26i 

JSR PC.FATCHK 

NOV RO R1 

ERRHRD ER^NO.URTNSG.SFINSG 



.•ISSUE WRITE CHARACTERISTICS 

:BR. IF CONNAND ISSUED OK 

:INC AND CHECK FOR NORE THAN 2S ERRORS 

.SAVE CONTENTS OF TSSR 

.•WRITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 



C2TUYA0 TU80 FRONT END PRT C 
TEST 2: REREADS 
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SEO 194 



81U 

8115 
8116 
8117 
8118 
8119 
8120 
8121 
8122 
8123 
8124 
8125 
8126 
8130 



8131 

8132 
8153 
8134 
8155 
8156 
813? 
8138 
8139 
8U0 
81A1 
8H2 
8U3 
8U4 
8Ud 



81A9 

8150 
8151 
8152 
8153 
8154 
8155 
8156 
8157 
8158 
8159 
8160 
8161 
8162 



043764 
043766 
043770 
043772 
043772 



043774 
044090 
044002 
044006 
044010 
044014 
044014 
044016 
044020 
044022 
044024 
044024 



044026 
044032 
044034 
044040 
044042 
044044 
044050 
044050 
044052 
044054 
Q44056 
044060 
044060 
044062 



044070 
044076 
044102 
044110 
0441^5 



000504 
004754 
01166C 

104406 



004737 
103411 
016501 
010004 
004737 

104456 
000505 
047404 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000506 
047115 
016344 

104406 
013737 



26$: 



CKLOOP 



.-LOOP IF SELECTED 



.UORD 324 
.yORD WRTHSG 
.WORD SFir^G 



TRAP C$CLP1 

;*****•************************************************************ 

•ISSUE REUIND COMMAND TO SELECTED TAPE DRIVE 



010434 
000000 
020100 



30$: 



JSR 
BCS 

mv 

NOV 

JSR 

ERRHRD 



CKLOOP 



PC.REWIND 
30i 

TSSR(RS),R1 

R0,R4 

PC.FATCHK 

ERRN0«T26RyN«PKTSSR 



;CALL TAPE REUIND COMMAND 
;BR« IF NO PROBLEM 
:6ET TSSR 

.-PACKET ADDRESS SET UP 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
;REUIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



TRAP 

****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
****************************************************************** 



CSERHRD 

325 

T26RUN 
PKTSSR 

CSCLPI 



045746 
000002 

020100 



40$: 



003072 046052 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRD 



CKLOOP 
MOV 



T26BFR*6,R1 

R1,R2 

#BIT1,R2 

R1.R2 

40i 

PC.FATCHK 

ERRN0,T26B0T.EXPREC 



FREE,T26RB 



;PICK UP XSTO 

;SET UP EXPECTED 

:SET 60T BIT IN EXPECTED 

;DOES EXP » REC'D 

;BR. IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

; STARTING WRITE BUFFER ADDRESS 



C$ERHRD 
326 
T26B0T 
EXPREC 

C$CLP1 



WRITE DATA.CVC-1.ACK COMMAND 



012737 


140005 


0460S0 


MOV 


012704 


046050 


046056 65$: 


MOV 


012737 


000400 


MOV 


013777 


046076 


136754 


MOV 


062737 


000001 


046076 


ADD 



#1 40005, T26PK3 

#T26PK3.R4 

#256..T26S2 

T26CNT.aFREE 

#1.T26CNT 



;WRITE DATA.CVCs1.ACK COMMAND 
.SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
.-MOVE TAPE RECORD NUMBER TO BUFFER 
.•NUMBER READY FOR NEXT RECORD 



J 



C2TUVA0 TU80 FRONT END PRT C 
TEST 2: REREADS 



N IS 
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SEQ 195 



8163 
81 64 
8165 
8166 
8167 
8168 
8169 
8173 
8174 
8175 
8176 



8177 

8178 
8179 
8180 
8181 
8182 
8183 
8184 
8185 
8186 
8187 
8188 
8189 
8190 
8191 
8192 
8193 
8194 
8198 



8199 

8200 
8201 
8202 
8203 
8204 
8205 
8206 
8207 
8208 
8209 
8210 
8211 
8212 
8216 



044124 
044130 
044134 
044140 
044144 
044146 
044150 



044154 
044154 
044156 
044160 
044162 
044164 
044164 
044166 
044174 
044176 
044200 
044200 



044204 
044210 
044212 
044216 
044220 
044224 
044224 
044226 
044230 
044232 
044234 
044234 



044236 
044242 
044244 
04<»250 
044252 
044254 
044260 
044260 
044262 



010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000507 
005011 
011700 



104406 
022737 
001401 
000741 



004737 
103411 
016501 
010004 
004737 

104456 
000510 
047404 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000511 



177776 
017120 
000000 
000200 



020100 



NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 



R4,TSDB(R5) 

PC.yAITF 

TSSR(R5).R1 

#SSR.R2 

R1.R2 

75i 

PC.FATCHK 



000013 046076 
005037 046076 



75$: 



120$: 



ERRSOFT ERRNO,URTERR,PKTSSK 



CKLOOP 

CNP «11.,T26CNT 

BEQ 120$ 

BR 65$ 



CLR 



T26CNT 



: ISSUE connano 

;UAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;S£T UP EXPECTED 
;ARE THEY EQUAL 
*8R IF OK 

:lHt AND CHECK FOR NORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
;URITE CONNAND IS NOT BEING CHECKED 
;HERE. IT WAS CHECKED IN CZTUXA 
;TSSR INCORRECT AFTER WRITE DATA 

TRAP C$£RSOFT 

.WORD 

.WORD 

.WORD 

;LOOP IF SELECTED 

TRAP 

; CHECK NUNBER OF RECORDS WRITTEN 
:BR. IF AT END OF WRITE SEQUENCE 
; WRITE NORE RECORDS 

:SET RECORD COUNTER BACK TO ZERO 



327 
WRTERR 
PKTSSR 

C$CLP1 



****************************************************************** 

ISSUE REWIND CONNAND TO SELECTED TAPE DRIVE 

****************************************************************** 



010434 
000000 
020100 



JSR 
BCS 
NOV 
NOV 
JSR 

ERRHRD 



130$: CKLOOP 



PC.REWIND 
136$ 

TSSR(R5),R1 

R0,R4 

PC.FATCHK 

ERRN0,T26RUN« PKTSSR 



:CALL TAPE REWIND CONNAND 
:BR. IF NO PROBLEN 
;6ET TSSR 

.-PACKET ADDRESS SET UP 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;REWIND NOT ACCEPTED 

TRAP C$ERHRD 
.WORD 328 
.WORD T26RWN 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP C$CLP1 



READ NESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
****************************************************************** 



045746 
000002 

020100 



NOV T26BFR*6.R1 

NOV R1 .R2 

BIS #BIT1.R2 

CNP R1.R2 

BEQ U6$ 

JSR PC.FATCHK 

ERRHRD ERRN0.T26B0T.EXPREC 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

.-DOES EXP = REC'D 

:BR. IF EQUAL (OK/ 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 329 



CZTUYAO TU80 FRONT END PRT 
TEST 2: REREADS 
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SEQ 19i 



8217 



8218 

8219 

8220 

8221 

822 

822 

8224 

8225 

8226 

8227 

8228 

8229 

8230 

8231 

8232 

8233 

8234 

tt235 

8236 

8237 

8238 

8259 

8240 

8241 

8242 

8246 



8247 

8248 
8249 
a2S0 
8251 
8252 
8253 
8254 
8255 
8256 
8257 
8258 
P259 
8260 
8261 
8262 
8265 
8264 
8J65 
8269 



044264 
044266 
044270 
044270 
044272 
044276 
044304 



044312 
044316 
044322 
044330 
044334 
044340 
044344 
044350 
044352 
044354 
044360 
044362 
044366 
044370 
044370 
044374 
044374 
044376 
044400 
044402 
044404 
0<.4404 



044406 
044414 
044422 
044426 
044454 
044440 
04444A 
044450 
044454 
044456 
044460 
044464 
044464 
044466 



047115 
016344 

104406 

012703 046066 

012737 177376 

012737 000003 



011337 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001414 
031327 
001403 
030127 
001006 



046050 
046050 
000400 
177776 
017120 
000000 
104210 



001000 
000002 



004737 020100 

104456 
000512 
046325 
011700 

104406 



012737 
012737 
005037 
013737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000513 



140001 
000400 
046054 
003072 
177776 
017120 
000000 
000200 



020^00 



046052 
046054 



140$: CKLOOP 
NOV 

150S: NOV 
NOV 



#T26RN.R3 

f17737i«T26RB 

#000003,T26R6^2 



.WORD T2680T 
.WORD EXPREC 

.-LOOP IF SELECTED 

TRAP C$CLP1 

;C0HNAND BUFFER ADDRESS 
;STARTING READ BUFFER ADDRESS 
;SET UP HIGH ORDER ADDRESS BITS 



****************************************************************** 
REREAD DATAJE.ACK, OPP CONNAND 

****************************************************************** 



046056 



165$: 



168$: 



NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
BIT 
BEQ 
BIT 
BNE 

JSR 
ERRHRD 



(R3),T26PK3 

fT26PK3.R4 

#256.,t56S2 

R4,TSDB(RS) 

PCWAITF 

TSSR(R5),R1 

#SSR!NXN!SC!BIT3,R2 

RIM 

176$ 

(R3),fBIT9 
168$ 
RI-fBITI 
176$ 

PCFATCHK 

ERRN0,T26RRF.PKTSSR 



170$: CKLOOP 



;REREAD DATA«IE«ACK, OPP CONNAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
; ISSUE CONNAND 
;UAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
*BR IF OK 

•CniCK FOR A READ CONNAND 
:BR, IF IT UAS A READ CONNAND 
;UAS BIT1 SET 

;BR, IF REREAD AND BIT1 SET 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER REREAD DATA 

TRAP CIERHRD 

.WORD 

.UORD 

.WORD 

;LOOP IF SELECTED 

TRAP 



330 
T26RRF 
PKTSSR 



C$CLP1 



****************************************************************** 

READ DATA. AC<«CVC-1 CONNAND 

****************************************************************** 



046050 
046056 

046052 



NOV #140001 ,T26PK3 

NOV #256.«T26SZ 

CLR T26RB^2 

NOV FREE,T26RB 

NOV R4,TSDB(R5) 

JSR PC.UAITF ^ 

NOV TSSR(R5),R1 

NOV fSSR.R2 

CNP R1-R2 

BEQ 186$ 

JSR PCFATCHK 

ERRHRD ERRNO.RDERR, PKTSSR 



;READ DATA. ACK.CVC^I CONNAND 

;SET SIZE IMTO PACKET 

; CLEAR OUT HIGH ADDRESS BITS 

;GIVE READ A GOOD BUFFER 

; ISSUE READ DATA CONNAND 

;yAIT FOR SSR 

;PICK UP THE TSSR 

;SET UP EXPECTED 

;IS THE TSSR OK 

;BR, IF TSSR OK (GOOD) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;READ DATA CONNAND FAILED 

TRAP C$ERHRD 
.yORD 331 



C2TUYA0 TU80 FRONT END PRT 
TEST 2: REREADS 



C 16 
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SEO 197 





044470 


005104 






044472 


011700 




8270 


044474 








044474 


104406 


136370 


8271 


044476 


017701 


8272 


044502 


012702 
020102 


000001 


8273 


044506 




8274 


044510 


001406 




8275 


044512 


004737 


020100 


8279 


044516 
044516 

044520 
044522 
044524 


104456 
000514 
046106 
016344 




8280 


044526 
044526 


104406 





8281 
8282 
8283 
8284 
8285 
8286 
8287 
8288 
8289 
8290 
8291 
8292 
8296 



8297 

8298 
8299 
8300 
8301 
8302 
8303 
8304 
8305 
8306 
8307 
8308 
8309 
8310 
8314 



8315 

8516 
8317 



044562 
04<»566 
044570 
044574 
044576 
044600 
044604 
044604 
044606 
044610 
044612 
044614 
044614 
044616 



180$: CKLOOP 

NOV 
NOV 
CHP 
BEQ 

JSR 



SFREE.RI 
#1,R2 
R1.R2 
196$ 

PC.FATCHK 



ERRHRD ERRN0.T26UNG.EXPREC 



190$: CKLOOP 



.WORD RDERR 

.WORD PKTSSR 

.-LOOP IF SELECTED 

TRAP C$CLP1 
.-FIRST WORD FROM READ BUFFER 
;SET UP EXPECTED 
;IS TAPE POSITION CORRECT 
;KEEP GOING POSITION OK 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE POSITION INCORRECT 

TRAP C$ERHRD 

.WORD 332 

.WORD T26WNG 

.WORD EXPREC 

TRAP C$CLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



044530 


004737 


010434 


044534 


103411 




044536 


016501 


000000 


044542 


010004 


020100 


044544 


004737 


044550 






044550 


104456 




044552 


000515 




044554 


047404 




044556 


011700 




044560 






044560 


104406 





JSR 
BCS 
MOV 
MOV 
JSR 

ERRHRD 



194$: CKLOOP 



PC. REWIND 
194$ 

TSSR(R5)«R1 

R0,R4 

PC.FATCHK 

ERRN0,T26RWN«PKTSSR 



;CALL TAPE REWIND COMMAND 
:BR, IF NO PROBLEM 
;6ET TSSR 

.•PACKET ADDRESS SET JP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
: REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 



C$ERHRD 
333 

T26RWN 
PKTSSR 



TRAP C$CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 045746 
010102 

052702 000002 

020102 

001406 

004737 O:.' 00 

104456 
000516 
047115 
016344 

104406 
010302 



196$: 



MOV t: BFR*6,R1 

MOV R1 .R2 

BIS fBIT1.R2 

CMP R1.R2 

BEQ 196$ 

JSR PC.FATCHK 

ERRHRD ERRN0,T26B0T, EXPREC 



CKLOOP 

MOV R3.R2 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

:DOES EXP s REC'D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 

;SAVE R3 FOR A MOMENT 



C$ERHRD 

334 

T26B0T 
EXPREC 

C$CLP1 



C2TUYA0 TU80 FRONT END PRT 
TEST 2: REREADS 



8318 
8319 
8320 
8321 
8322 
8323 
832A 
832S 
8326 
8327 
8328 
8329 
8330 
8331 
8332 



D 16 
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SEQ 191 



8333 
8334 
8335 
8336 



044620 
044624 
044630 
044632 
044634 
044640 
044642 
044642 
044642 
044642 
044644 
044652 
044654 
044660 



012703 
004737 
010203 
005723 
021327 
001216 



104403 
023727 
002402 
004737 



ISSUE SPACE RECORDS CONHAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - O^FORUARD 1 -REVERSE 



000001 
010140 



177777 



002170 
020152 



200$: 



000031 



999$: 



mv 

JSR 
NOV 

TST 
CMP 
BNE 

ENDSUB 



C«P 
BLT 
JSR 



#1,R3 
PC. SPACE 
R2.R3 
(R3)« 

(R3) .#177777 
150$ 



FATFLG.#25. 
999$ 

PCCKDROP 



.•SPACE ONE RECORD 

;CALL SPACE ROUTINE 

.•RESTORE R3 
:BUnP COUNTER 

:END OP COMMAND BUFFER YET 
:NORE COMMANDS KEEP GOING 

;»»»»»» END SUBTEST »»»»»» 
LI 0063: 

TRAP C$ESUB 
:IS ERROR COUNT AT 25 
;6R. IF LESS THAN 25 
.-TRY TO DROP THE UNIT 



C2TOYA0 ru80 FRONT END PRT 
TEST 2: REREADS 



8338 

8339 
8340 
8341 
8342 
8343 
8344 
8345 
8346 
8347 
8348 
8349 
83S0 
8351 



8352 
8553 
8354 
8555 
8556 
8357 
8358 
8359 
8360 
8561 
8362 
8563 
8564 
8565 
8369 
8370 



8371 
8372 
8373 
8374 
8375 
8376 
8377 
8378 
8379 
8380 
8381 
8382 
8383 
8387 
8388 



8389 



044660 
044660 
044660 
044662 
044664 
044670 
044674 



044700 
044704 
044706 
044712 
044714 
044714 
044716 
044720 
044722 
044724 



044730 
044734 
044736 
044742 
044744 
044744 
044746 
044750 
044752 
044754 
044754 



C MACRO R1200 29-nAR-83 13:43 PAGE 97 



TEST 2, SUBTEST 14 



SEO 199 



VERIFIES THAT REREAD PREVIOUS WITH OPP=0 (SPACE 
REVERSE. READ FORWARD) AND REREAD PREVIOUS WITH OPP-1 
(READ REVERSE. SPACE FORWARD) ISSUED WHEN THE TAPE 
POSITIONED AT SOT CAUSE FUNCTION REJECT TERMINATION 
WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR SIT SET. 



104402 
005003 

004737 050640 
004737 050732 
004737 050774 



BGNSUB 



CLR 
JSR 
JSR 
JSR 



R3 

PC.T26REST 
PC.T26RT*' 
PC,T26RT 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.14: 

TRAP CSBSUB 

: CLEAR TEST COUNTER 

;SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

:SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 016644 
103407 

004737 020100 
010001 

104455 
000517 
003550 
011666 



JSR PC.SOFINIT 

BCS 20$ 

JSR PCFATCHK 

MOV R0,R1 

ERRDF ERRNO.SFIERR.SFIMSG 



DO INITIALIZE ON CONTROLLER 
BR IF INIT WAS OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 
CONTENTS OF TSSR REGISTER 
FATAL ERROR TSSR WAS NOT OK 



20$: 



TRAP 
.WORD 
.WORD 
.WORD 



CSERDF 
335 

SFIERR 
SFIMS6 



044724 012704 04S720 



MOV #T26PACKET.R4 .'SUBROUTINE NEEDS PACKET ADDRESS 

****************************************************************** 

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

****************************************************************** 



004737 010332 
103407 

004737 020100 
010001 

104456 
000520 
004754 
011666 

104406 



25$: 



JSR 
BCS 
JSR 
MOV 
ERRHRD 



CKLOOP 



PC.WRTCHR 
25i 

PC.FATCHK 
RO.RI 

ERRNO.WRTNSG.SFIMSG 



ISSUE WRITE CHARACTERISTICS 

BR. IF COMMAND ISSUED OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 

SAVE CONTENTS OF TSSR 

WRITE CHARACTERISTISC FAILED 

TRAP C$ERHRO 

.WORD 336 

.WORD WRTMSG 

.WORD SFIMSG 

LOOP IF SELECTED 

TRAP C$CLP1 



010A3A 
000000 
000200 



020100 



CZTUYAO rubO FRONT END PRT C 
TEST 2: REREADS 



8590 
8391 
8392 
8393 
839A 
8395 
8396 

8397 0AA756 00A737 

8398 0AA762 016501 

8399 044766 012702 

8400 044772 103407 

8401 044774 010004 

8402 044776 004737 

8406 045002 
045002 104456 
045004 000521 
045006 047404 
045010 011700 

8407 045012 
045012 104406 

8408 
8409 
8410 
8411 
8412 
8413 
8414 

8415 045014 013701 

8416 045020 010102 

8417 045022 052702 

8418 045026 020102 

8419 045030 001406 
842G 045032 004737 

8424 045036 
045036 104456 
045040 000522 
045042 047115 
045044 016344 

8425 045046 
045046 104406 

8426 045050 012737 

8427 045056 013737 

8428 045064 005703 

8429 0450^6 001404 
8430 

8431 
8432 
8433 
8434 
8435 
8436 

8437 045070 012737 

84 58 045076 00040v 

8439 

8440 

8441 

844? 
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SEO 200 



****************************************************************** 
ISSUE REVINO COMKANO TO SELECTED TAPE DRIVE 



26$: 



30$: 



JSR 

mv 
mv 

BCS 
NOV 
JSR 

ERRHRD 



CKLOOP 



PC.REVIND 
TSSR(R5),R1 
#SSR,R2 
30$ 

R0,R4 
PCFATCHK 

ERRN0,T26RUN,PKTSSR 



.'CALL TAPE REWIND COMMAND 
:6ET TSSR 

;SET UP EXPECTED TSSR 
:BR, IF NO PROBLEM 
; PACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
.-REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
337 

T26RWN 
PKTSSR 



TRAP C$CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



045746 
000002 

020100 



40$: 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRD 



CKLOOP 



T26BFR«6.R1 

R1,R2 

«6IT1«R2 

R1.R2 

40i 

PCFATCHK 

ERRN0,T26B0T,EXPREC 



000400 
003072 



046056 
046052 



MOV 
MOV 
TST 
BEQ 



»256.,T26SZ 

FREE«T26RB 

R3 

50$ 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP - REC'D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
:TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

;SET UP RECORD SIZE IN PACKET 
.•ADDRESS OF READ BUFFER 
.-CHECK NUMBER OF TIMES THROUGH HERE 
.-BR« IF FIRST TIME THROUGH HERE 



C$ERHRD 
338 
T26BOT 
EXPREC 

C$CLP1 



****************************************************************** 



REREAD. CVCsl.ACK CORHANO 



161001 046050 



MOV «161001,T26Pk3 
BR 55$ 



; REREAD, CVC-1,ACK COMMAND 
.-SKIP NEXT COMMAND 



REREAD.ACK COMMAND 



C2TUVA0 TU80 FRONT END PRT C 
TEST 2: REREADS 
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SEO 201 



8AA3 

8AA5 
8AA6 
8A47 
8448 
8449 
8450 
8451 
8452 
8453 
8454 
8455 
8456 
8460 



8461 

8462 
8463 
8464 
8465 
8466 
8467 
8468 
8469 
8470 
8471 
8472 
8473 
8474 
8478 



8479 

3A80 
8481 
8432 



8'83 
8A8A 
8A85 
8486 



045100 
045106 
045106 
045112 
045112 
045116 
045122 
045126 
045132 
045134 
045136 
045142 
045142 
045144 
045146 
045150 
045152 
045152 



045154 
045160 
045162 
045166 
045170 
045172 
045176 
045176 
045200 
045202 
045204 
045206 
045206 
045210 
045212 
045212 
045212 
045214 
045222 
045224 
045230 



010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000523 
047043 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000524 
046174 
016344 

005103 
001262 



104403 
023727 
002402 
004737 



012737 141001 
012704 0460S0 



177776 
017120 
000000 
100206 



020100 



046050 50$: 
S5$: 

65$: 



045746 
002000 

020100 



75$: 



flOV 

NOV 

NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



CKLOOP 



#141001, T26PK3 

#T26PK3,R4 

R4,TSDB(RS) 

PCUAITF 

TSSR(RS),R1 

#SSR!SC!BIT1!BIT2,R2 

R1.R2 

75i 

PC«FATCHK 

ERRN0.T26UDE,PKTSSR 



;REREAD.ACK CONNAND 

;SET UP R4 WITH PACKET ADDRESS 

; ISSUE CONNAND 
;UAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
:SET UP EXPECTED 
;AR£ THEY EQUAL 
*BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

:LOOP IF SELECTED 

TRAP 



C$ERHRD 
339 
T26WDE 
PKTSSR 



C$CLP1 



READ NESSA6E BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
******************************************************************* 



170$: 



NOV T26BFR«6«R1 

NOV R1,R2 

BIS «BIT10,R2 

CNP R1.R2 

BEQ 170$ 

JSR PCFATCHK 

ERRHRD ERRN0,T26NEF,EXPREC 



CON R3 
BNE 26$ 
ENDSUB 



;GET XSTO STATUS WORD 

;SET UP EXPECTED 

;SET THE NEF BIT 

;ARE THEY EQUAL 

:BR, IF EQUAL (GOOD) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;NEF SHOULD BE SET 

TRAP C$ERHRD 
.WORD 340 
.WORD T26NEF 
.UORD EXPREC 

.•RESET THE SWITCH 

;BR, IF FIRST TINE THROUGH HERE 



002170 
020152 



000031 



999$: 



CNP 
BLT 
JSR 



FATFLG,#25. 
999$ 

PC.CKOROP 



LI 0064: 

TRAP 

;IS ERROR COUNT A^ 25 
:BR, IF LESS THAN 25 
.•TRY TO DROP THE UNIT 



C$ESUB 



H 16 



C2TUVA0 TU80 FRONT END PRT C 
TEST 2: REREADS 



8488 
8489 
8490 
8491 

8492 
8495 
8494 
8495 
8496 
8497 
8498 
8499 
8500 
8501 
8502 



8503 
8504 
8505 
8506 
8507 
8508 
8509 
8510 
8511 
8512 
8513 
8514 
8515 
8516 
8520 
8521 



8522 
8523 
8524 
8525 
8526 
8527 
8528 
8529 
8530 
8531 
8532 
8533 
8534 
8538 
8539 



8SA0 



045230 
045230 
045230 
045232 
045236 
045242 
045246 



045252 
045256 
045260 
045264 
045266 
045266 
045270 
045272 
045274 
045276 



045302 
045306 
045310 
045314 
045316 
045316 
045320 
045322 
045324 
045326 



104402 
005037 
004737 
004737 
004737 



004737 
103407 
004737 
010001 

104455 
000525 
003550 
011666 



004737 
103407 
004737 
010001 

104456 
000526 
004754 
011666 
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TEST 2, SUBTEST 15 

VERIFIES THAT REREAD PREVIOUS WITH 0PP«1 (SPACE 
REVERSE, READ FORWARD) AND REREAD PREVIOUS UITH 0PP=1 
(READ REVERSE « SPACE FORWARD) ISSUED WHEN THE TAPE 
POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT 
NOT AT 60T) CAUSES TAPE STATUS ALERT TERMINATION WITH 
THE REVERSE INTO BOT (RIB) STATUS BIT SET. 



SEO 202 



046100 
050640 
050732 
050774 



BGNSUB 



CLR 
JSR 
JSR 
JSR 



T26CNU 
PC,T26REST 
PC,T26RT2 
PC.T26RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.15: 

TRAP CtBSUB 

CLEAR OUT COUNTER 

SET COMMAND PACKET 

SET UP OTHER COMMAND PACKET 

SET UP OTHER COMMAND PACKET 



****************************************************************** 

ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016644 
020100 



JSR 
BCS 
JSR 
MOV 
ERRDF 



PC-SOFINIT 
20i 

PC.FATCHK 
RO.RI 

ERRNO.SFIERR.SFIMSG 



20$: 



045276 012704 045720 



MOV 



#T26PACKET,R4 



;D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 341 
.WORD SFIERR 
.WORD SFINS6 



.•SUBROUTINE NEEDS PACKET ADDRESS 



.•WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



010332 
020100 



25$: 



JSR 
BCS 
JSR 
MOV 
ERRHRD 



CKLOOP 



PC-WRTCHR 
25i 

PC.FATCHK 
R0.R1 

ERRN0.URTNS6.SFIMS6 



.ISSUE WRITE CHARACTERISTICS 

:BR. IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

:SAVE CONTENTS OF TSSR 

.•WRITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 
.WORD 342 
.WORD WRTNSG 
.WORD SF IMSG 

.'LOOP IF SELECTED 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 



I 16 
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SEQ 20S 



85A1 
6542 
8545 
6544 
8545 
8546 
8547 



045326 104406 



TRAP CSCLP1 



8559 
8560 
8561 
8562 
8563 
8564 
8565 
8566 
8567 
8568 
8569 
8570 
8571 
8575 



8576 
8577 
8578 
8579 
8580 
8581 
8582 
8583 
8584 
8585 
8586 
8587 
3588 
8589 
8590 
8594 



045366 
045372 
045374 
045400 
045402 
045404 
045410 
045410 
045412 
045414 
045416 
045420 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000530 
047115 
016344 



045746 
000002 

020100 



045420 
045424 
045430 
045432 
045436 
045440 
045444 
045444 
045446 



012703 
004737 
103411 
016501 
010004 
004737 

104456 
000531 



000001 
010140 

000000 

020100 



; ISSUE REWIND CONPUND TO SELECTED TAPE DRIVE 



8548 045530 


004757 


010454 


26S: 


JSR 


8549 045354 


016501 


000000 




NOV 


8550 045540 


012702 


000200 




NOV 


8551 045544 


103407 






BCS 


8552 045546 


010004 






NOV 


8555 045350 


004737 


020100 




JSR 


8557 045554 








ERRHRD 


045554 


104456 






045556 


000527 








045560 


047404 








045562 


011700 








8558 045364 






30$: 


CKLOOP 


045364 


104406 









PC, REWIND 

TSSR(R5),R1 

«SSR,R2 

30$ 

R0,R4 

PCFATCHK 

ERRN0,T26RWN*PKTSSR 



;CALL TAPE REWIND COMMAND 

;6ET TSSR 

;SET UP EXPECTED TSSR 
;BR, IF NO PROBLEM 
:PACKET ADDRESS SET UP 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



;L00P IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
343 

T26RWN 
PKTSSR 



TRAP C$CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



MOV T26BFRf6«R1 

MOV R1 .R2 

BIS fBIT1,R2 

CMP R1 .R2 

BEQ 40$ 

JSR PCFATCHK 

ERRHRD ERRN0.T26B0T.EXPREC 



40$: 



;PICK UP XSTO 

;SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

;DOES EXP ' REC*D 

:BR, IF EQUAL (OK) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

.'TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 344 
.WORD T26BOT 
.WORD EXPREC 



****************************************************************** 

ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-FORWARD 1 -REVERSE 

****************************************************************** 



MOV #000001. R3 

JSR PC.SPACE 

BCS 75i 

MOV TSSR(R5).R1 

MOV R0,R4 

JSR PC.FATCHK 

ERRHRD ERRN0.T26WDE. PKTSSR 



:SET UP SPACE FORWARD 1 RECORD 

; ISSUE SPACE COMMAND 

:BR, IF OK 

:GET STATUS DATA 

:GET PACKET ADDRESS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER READ DATA 

TRAP c$ERHRD 
.WORD ?45 



J 16 



C2TUYA0 TU80 FRONT END PRT 
TEST 2: REREADS 



0A5450 
(K5452 
8S9S 0ASA5A 
045454 

85% 
8597 
8598 
8599 
8600 
8601 
8602 
8603 

8604 045456 

8605 045462 

8606 045466 

8607 045470 

8608 045474 

8609 045476 

8613 045502 
045502 
045504 
045506 
045510 

8614 045512 
045512 

8615 045514 

m m, 

8618 
8619 
8620 
8621 
8622 
8623 
8624 

8625 045530 

8626 045536 
8627 

8628 
8629 
8630 
8631 
8632 
8633 

6634 045540 

8635 045546 

8636 045546 

8637 045552 

8638 045556 

8639 045562 

8640 045566 

8641 045572 

8642 045574 

8643 045576 
fi647 045602 

045602 
045604 



0^7043 
011/00 

104406 



012703 
004737 
103411 
016501 
010004 
004737 

104456 
000532 
047043 
011700 

104406 
013737 
Q05737 
001404 



012737 
000403 



012704 
010465 
004737 
016501 
012702 
020*. 02 
001406 
004737 

104456 
000533 
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75S: CKLOOP 



.-LOOP IF SELECTED 



.WORD 
.WORD 

TRAP 



T26WDE 
PKTSSR 

CSCLPI 



ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
P>T IS SETS DIRECTION - 0-FORUARD l-REVERSE 



100001 
010140 

000000 

020100 



NOV 
JSR 
BCS 
MOV 
NOV 
JSR 

ERRHRD 



175$: CKLOOP 



#1 00001, R3 
PC. SPACE 
17$$ 

TSSR(R5).R1 

R0.R4 

PC.FATCHK 

ERRN0,T26UDE,PKTSSR 



;SET SPACE REVERSE 1 RECORD 
.ISSUE COMMAND 
;60 ON IF ALL IS WELL 
;6ET TSSR CONTENTS 
;SET UP EXPECTED (PACKET CONTENTS) 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 



003072 
046100 



046052 



MOV 
TST 
BEQ 



FREE.T26RB 



TRAP 
.WORD 
.WORD 
.WORD 

:LOOP IF SELECTED 

TRAP 

.•ADDRESS OF BUFFER 

.•CHECK FOR TIMES THROUGH HERE 

;BR. IF FIRST TIME THROUGH 



C$ERHRD 
346 
T26WDE 
PKTSSR 

C$CLP1 



REREAD (PREVIOUS), IE ,ACK«0PPs1 CMD. 

****************************************************************** 



161001 046050 



MOV #161001,T26PK3 
BR 178$ 



.•REREAD (PREVIOUS). IE. ACK.OPPsI CMD. 
.•SKIP NEXT COMMAND 



****************************************************************** 

REREAD .ACK,0PP=1 COMMAND 

****************************************************************** 



012737 141001 



046050 
177776 
017120 
000000 
100204 



020100 



046050 176$: 
178$: 



NOV #141001.T26PK3 

NOV «T26PK3,R4 

MOV R4.TSDB(R5) 

JSR PC.WAITF 

MOV TSSR(R5).R1 

MOV fSSR!SC!6n2.R2 

CMP R1.R2 

BEQ 180$ 

JSR PC.FATCHK 

ERRHRD ERRNO,T26WDE. PKTSSR 



.•REREAD .ACK.OPP^I COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

; ISSUE CONNANO 

.-WAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

•BR IF OK 

•INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 347 



CZTUYAO TU80 FRONT END PRT 
TEST 2: REREADS 



K 16 
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8648 

8650 
8651 
865? 
8653 
8654 
8658 



8659 
8660 
8661 
8662 



8663 
8664 
8665 
8666 
8667 
8668 
8669 
8670 
8671 
8672 
8673 
8674 



045606 
045610 
045612 
045612 
045614 
045620 
045622 
045626 
045630 
045632 
045636 
045636 
045640 
045642 
045644 
045646 
045646 
045652 
045654 
045654 
045654 
045656 
045664 
045666 
045672 



045672 
045676 
045700 
045704 
045704 
045704 
045706 



047043 
011700 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000534 
046174 
016344 

005137 
001226 



104403 
023727 
002402 
004737 



180$: 



045754 
000001 

020100 



046100 

002170 
020152 



190S: 



000031 



999$: 



004737 017354 
103002 

000137 031722 



104432 
003116 



163$: 



CKLOOP 

nOV T26BFR*14,R1 

NOV R1 .R2 

BIS «eiT0,R2 

CUP R1.R2 

BEO 190$ 

JSR PCFATCHK 

ERRHRO ERRN0J26NEF,EXPREC 



CON T26CNU 
BNE 26$ 
ENDSUB 



CNP FATFL6,#25. 

BIT 999$ 

JSR PC*CKOROP 



JSR 
BCC 
JNP 

EXIT 



PC.TSTLOOP 

16^$ 

T26L00P 

TST 



.WORD T26WDE 
.WORD PKTSSR 

.-LOOP IF SELECTED 

TRAP C$CLP1 

;GET XST3 STATUS WORD 

;SET UP EX ECTED 

;SET THE NEF BIT 

;ARE THEY EQUAL 

;BR« IF EQUAL (GOOD) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

:NEF SHOULD BE SET 

TRAP C$ERHRD 
.WORD 348 
.WORD T26NEF 
.WORD EXPREC 

;SET SWITCH THE OTHER WAY 
:BR, IF FIRST TINE THROUGH 
;»»»»»» END SUBTEST »»»»»» 
LI 0065: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 



:D0 WE NEED TO ITERATE TEST 
;BR« IF NO LOOP REQUIRED 
.•EXECUTE AGAIN 

;ALL DONE THIS TEST 

TRAP C$EXH 
.WORD LI 0046- 



L 16 



CZTUYAO TU80 FRONT END PRT C 
TEST 2: REREADS 



8676 
8677 
8678 
8680 
8682 
3683 
8684 
8685 
8686 
8687 
8688 
8689 
8690 
8691 
8692 
8693 
8694 
8695 
8697 
8699 
8700 
8701 
8702 
8703 
870A 
8706 
8708 
8709 
8710 
8711 
8712 
8713 
87U 
8715 
8716 
8717 
8718 
8719 
8720 
8721 
8722 
8723 
872A 
8725 
8726 
8727 
8728 
8729 
8730 
8731 
8732 



045710 
045720 
045720 
045722 
045724 
045726 
045730 
045730 
045732 
045734 
045736 
045740 



046022 
046030 
046030 
046032 
046034 
046036 

046040 
046050 
046050 
046052 
046052 
046054 
046056 



046060 
046060 
046061 
046062 
046064 



046066 
046070 
046072 
046074 

046076 
046100 
046102 
046104 



014004 
045730 
000000 
000012 

045740 
000000 
000024 
000000 



100006 
046060 
000000 
000006 



140005 

003072 
000000 
000000 



010 
200 
000000 
000000 



140001 
141401 
161401 
\77777 

000000 
000000 
000000 
000000 
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; LOCAL STORAGE FOR THIS TEST 



sea 2'.v 



.BLKB 
T26PACICET: 

.WORD 
.WORD 
.WORD 
.WORD 

T26DATA: 

.WORD 
.WORD 
.WORD 
.WORD 
T26BFR: .BLKU 



10-<.-TUV2A»7> 

14004 

T26DATA 

0 

10. 

T26BFR 
0 

20. 
0 

25. 



.-WRITE SUBSYSTEM MEMORY COMMAND PACKET 

■ 

.BLKJ 10-<.-TUV2A»7> 



T26PK2: 

.WORD 
.WORD 
.WORD 
.WORD 

.BLKB 

T26PK3: 

.WORD 

T26RB: 

T26WB: .WORD 
.WORD 

T26SZ: .WORD 
.EVEN 

t26BF2: 
T26BS0: .BYTE 
T268S1: .BYTE 
T26S2: .WORD 
T26S3: .WORD 



100006 
T26BF2 
0 
6. 

10-<.-TUV2A»7> 

14000S 

FREE 

0 

0 



10 
200 
0 
0 



.EVEN 

;TAPE MOTION PACKET COMMAND VALUES 

T26RN: .WORD 140001 

.WORD 141401 

.WORD 161401 

.WORD 177777 

t26CNT: .WORD 0 

T26CNU: .WORD 0 

T26RSZ: .WORD 0 

T26DLY: .WORD 0 



.COMMAND PACKET FOR TEST 

.WRITE CHARACTERISTICS COMMAND. WITH CVC«1, ACK 
.ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BLOCK SIZE 
.•CHARACTERISTICS DATA BLOCK 
.•ADDRESS OF MESSAGE BUFFER 

; LENGTH OF MESSAGE BUFFER 

.•MESSAGE BUFFER 



; WRITE SUB SYS MEM COMMAND, AND ACK 
.•ADDRESS OF SELECT BLOCK DATA 

;SIZE OF DATA PACKET 

REREAD COMMAND. CVC=1 AND ACK 
ADDRESS OF WRITE BUFFER 
SIZE OF BUFFER (EXTENT) 



BSELO AREA 
6SEL1 AREA 
SEL 2 AREA 
DATA AREA 



READ DATA 
REREAD NEXT OPP=0 
REREAD NEXT OPP-1 
END OF DATA 

TAPE RECORD COUNTER STORAGE AREA 
TAPE RECORD COUNTER STORAGE AREA 
RECORD STORAGE SIZE AREA 
DELAY COUNTER AREA 



C2TUYA0 TU80 FRONT END PRT C 
TEST 2: REREADS 

8734 
8735 
8736 
8737 
8738 
8739 

8740 046106 124 141 

8741 046174 122 105 
3742 046256 124 123 

8743 046325 122 105 

8744 046422 122 105 

8745 046517 120 117 
874e 046601 122 111 

8747 046651 124 123 

8748 046726 111 154 

8749 047007 122 105 

8750 047043 124 123 

8751 047115 124 141 

8752 047162 104 141 

8753 047250 122 105 

8754 047327 124 123 

8755 047404 122 145 

8756 047453 122 101 
875? 047526 124 123 

8758 047575 104 162 

8759 047650 124 123 

8760 047740 124 123 

8761 050013 103 126 

8762 050066 124 123 

8763 050141 127 122 

8764 050230 122 145 

8765 050312 122 145 

8766 05037^ 122 145 

8767 050462 122 145 

8768 05O5S0 104 141 

8769 050627 122 US 
8770 

8771 
8772 
8773 
8774 
8775 
8776 
8777 

8778 050640 

8779 050640 

8780 050644 012701 045720 

8781 050650 012721 140004 

8782 050654 012721 045730 

8783 050660 005021 

8784 050662 012721 000012 

8785 050666 012721 045740 

8786 050672 005021 

8787 050674 012721 000024 

8788 050700 005021 

8789 050702 012711 000000 

8790 050706 012702 000030 



B 1 
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; LOCAL TEXT MESSAGES FOR TEST 



SEO 207 



160 T26UNG 

122 T26NEF 

123 T26R0F 
122 T26RRF 

122 T26RRG 

123 T26SC: 

102 T26L R 
123 T26UDF 
154 T26LOQ 

122 T26SSR 

123 T26U0E 
160 T26B0T 
164 T26DTA 

122 T26E0T 

123 T26TM: 
167 T26RyN 
115 T26RNC 
123 T26AM3 
151 T260FL 
123 T26UDD 
123 T26UDC 

103 T26VCK 
102 T26BA: 
111 T26USS 
141 T26L0N 
141 T26L0P 

163 T26P8P 
141 T26TRL 

164 T26NEQ 
162 TST26ID 



.ASCIZ 'Tape Position Incorrect After REREAD Previous (OPPsD* 

.ASCIZ 'REREAD PREVIOUS, At 60T, Failed To Set NEF (XSTO)* 

.ASCIZ *TSSR Incorrect After READ DATA Comnand* 

.ASCIZ 'REREAD Previous (Space Reverse, Read Forward) CoflMand Failed' 

.ASCIZ 'REREAD Previous (Read Reverse, Space Forward) ConMand Failed* 

.ASCIZ 'POSITION (Space CoMiand) Failed, TSSR Not Correct* 

.ASCIZ 'RIB NOT SET AFTER READ REVERSE INTO BOT* 

.ASCIZ 'TSSR Not Correct After Illegal Mode Bits Set' 

.ASCIZ 'Illegal Kode Bits, Failed To Set ILC Bit In XSTO' 

.ASCIZ 'REREAD COMMAND Not Accepted* 

.ASCIZ *TSSR Not Correct After WRITE DATA Comnand* 

.ASCIZ 'Tape Not At BOT After REWIND Comnand' 

.ASCIZ 'Data Written To Tape Not Equal To Data Read From Tape' 

.ASCIZ 'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

.ASCIZ 'TSSR Not Correct After REREAD COMNAND Reject* 

.ASCIZ 'Rewind (POSITION) Comnand Not Accepted' 

.ASCIZ 'RAM Error, Correct Data Pattern Not In Ran* 

.ASCIZ 'TSSR Init. Failed After REREAD COMNAND* 

.ASCIZ *Drive 7 Select Failed To Set "OfL" In TSSR* 

.ASCIZ *TSSR Not Correct After REREAD DATA Command. SWB Bit Set* 

.ASCIZ *TSSR Not Correct After REREAD DATA Command* 

.ASCIZ *CVC Set, Didn"t Reset VCK In Nessaoe Buffer* 

.ASCIZ *TSBA Not Correct After REREAD DATA Command* 

.ASCIZ 'WRITE SUBSYSTEN NENORY CoMiand Not Accepted (RAN Read)* 

.ASCIZ *Read1ng Long Record Failed To Set RLL Bit In XSTO* 

.ASCIZ 'Reading Long Record Failed To Set RLS Bit In XSTO' 

.ASCIZ 'Residual Byte Count Incorrect After Short Record Read* 

.ASCIZ 'Reading Long Record Failed To Give Tape Status Alert* 

.ASCIZ 'Data REREAD From Tape Not Correct, After SWBsl* 
.ASCIZ *Rereads* 

.EVEN 



;ROUTINE TO RESTORE COMNAND PACKET TO START-UP (DEFAULT) VALUES 
:URITE SUBSYSTEN NENORY CONNAND 



T26REST: 



SAVREG 

NOV #T26PACKET.R1 

NOV #140004, (R1)^ 

NOV #T26DATA,(R1)^ 

CLR (RD^ 

NOV #10., (R1)^ 

NOV #T26BFR,(Rl)i 

CLR (RD* 

NOV #20., (RD* 

CLR (RD* 

NOV #0,(R1) 

NOV #24., R2 



;SAVE THE REGISTERS 

.•START OF THE PACKET 

.•WRITE SUBSYSTEN NEH. WITH ACK. CVC-1 

.•ADDRESS OF CHARAISTICS DATA BLOCK 

.•EXTENDED ADDRESS 

.•SIZE OF DATA BLOCK IN BYTES 

.•ADDRESS OF MESSAGE BUFFER 

; LENGTH OF NESSAGE BUFFER 

.•SELECT DRIVE ZERO (0) 

.-NUNBER OF LOCATIONS TO BE CLEARED 



C 1 
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#177777,T26BFR(R2) 

-(R2) 

R2.#0 

64i 

PC 



#T26PK2,R1 

#140006, (R1)> 

#T26BF2,(R1)* 

<R1)* 

#6..(R1)* 

(R1)* 

#T26BF2,R1 
(RD* 
(R1) 
PC 



SEQ 208 



TEST 2: REREADS 








8791 050712 


A1 ^7^0 

012762 


^77777 045740 


64$: 


NOV 


8792 050720 


AAC7/ O 

005742 






TST 


8795 050722 


02022 


000000 




CHP 


07A/ ACA^'iZ. 

8794 050726 


AAi V7i 

001371 






BNE 


ACA7TA 

8795 050750 


AAAOA7 

00020 r 






RTS 


8796 










8f 9r 






T26RT2: 




0700 ACA7TO 

8f98 050752 








Of 99 050 f5c 








SAVREG 


ooOO 050 r 50 


A1 07A1 

Olc^Ul 


046030 




MOV 


QOAi ACA7ZO 
ooOl 050 fH2 


A1 0701 
OlC' c 1 


140006 




NOV 


8802 0507«i6 


A1 0701 

Olcf cl 


046060 




MOV 


8805 050752 


AACA01 

005021 






CLR 


8o04 0^0 f5H 


A1 0701 

01 2f 21 


000006 




NOV 


8805 050fC0 


AACA01 

oo^02l 






CLR 


8806 050^62 


A1 07A1 

012r 01 


046060 




NOV 


flOA7 ACA7^Z. 

o80f 050 r 66 


AACAOl 

005021 






CLR 


OQAD ACA77A 

8508 050ffO 


AACA1 1 

00501 1 






CLR 


OOAO ACA77^ 

8809 050rr2 


AAAOA7 

000207 




T26RT3: 


RTS 


OQ1A ACA77/ 
8810 050ffH 








OOi i ACA77/ 
8811 050ffH 








SAVREG 


OOi') ACiAAA 

8812 051000 


A1 07A1 


046050 




NOV 


O O i 7 AC i AA/ 

8815 05100h 


Ai 0701 

012^21 


000000 




NOV 


RML nsinin 

OO 1 H 1 V 1 V 


Aip7pi 


000000 




NOV 


8815 051014 


005021 






CLR 


8816 051016 


012711 


000000 




NOV 


8817 051022 


000207 






RTS 


8818 051024 








ENDTST 


051024 










051024 


104401 









;ALL ONES TO MESSAGE BUFFER 

;NEXT LOCATION 

; CHECK FOR END OF LOOP 

:KEEP GOING UNTIL DONE 

:RETURN 



:SAVE THE REGISTERS 

; START OF THE PACKET 

;WRITE SUBSYSTEM MEN. WITH ACK^CVC-I, 

.•ADDRESS OF DATA BLOCK 

.-EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

;POINT TO DATA SEL AREA 



.•RETURN 



.•SAVE THE REGISTERS 

#T26PK3.R1 .-START OF THE PACKET 

«0.(R1)* .-WRITE SUBSYSTEM MEN. WITH ACK. 

#0«<R1)4^ .-ADDRESS OF DATA BLOCK 

(RV* .-EXTENDED ADDRESS 

#0.(R1) ;SIZE OF DATA BLOCK IN BYTES 

PC .-RETURN 



LI 0046: 



TRAP C$ETST 



CZTUYAO TU80 FRONT END PRT C 
TEST 3: yRITE DATA RETRY 

8820 
8821 
8822 
8823 
8824 
8825 
8826 
8827 
8828 
8829 
8830 
8831 

8832 051026 
051026 

8833 051026 005037 002170 

8834 051032 005037 003100 

8835 051036 012737 005764 

8836 051044 005037 003102 

8837 051050 004737 020244 

8842 051054 012700 060623 

8843 051060 004737 017406 

8844 051064 012737 000001 

8845 051072 005037 055666 
8846 

8847 
8848 
8849 
8850 
8851 
8852 
8853 
8854 
8855 
8856 
8857 
8858 

8859 051076 

8860 051076 
051076 
051076 

8861 051100 

8862 051104 

8863 051110 

8864 051114 

8865 051122 
8866 
8867 
8868 
8869 
8870 
8871 
8872 

8873 051126 

8874 051132 

8875 051134 
051134 
051140 
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.SBTTL TEST 3: WRITE DATA RETRY 

♦ 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
CONNAND (SPACE REVERSE, ERASE, WRITE DATA) 

THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 



SF9 



002146 



002164 



BGNTST 

CLR 
CLR 
NOV 
CLR 
JSR 
NOV 
JSR 
NOV 
CLR 



FATFL6 
KTFLG 

«£PRT2,EPRTSW 

KTENABLE 

PC.KTOFF 

#TST27ID,R0 

PCTSTSETUP 

#1A00PCNT 

T27CNT 



T3: : 

; CLEAR FATAL ERROR* FLAG 
:HOLD OFF KT11 

.'SECONDARY ERROR MESSAGE 
;TURN OFF KT11 

;TURN KT11 BACK OFF IF THERE 
.-ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
.•PERFORM 1 ITERATIONS 
.-CLEAR TAPE RECORD COUNTER 



TEST 3. SUBTEST 1 



VERIFIES THAT A WRITE DATA RETRY CONNAND ISSUED WHILE 
THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
TERMINATION. WITH THE NON-EXECUTABLE FUNCTION (NEF) 
ERROR BIT SET. 



T27L00P: 



104402 

004737 060644 

004737 060736 

004737 061000 

012737 176750 

005037 055666 



055672 



BGNSUB 



JSR 
JSR 
JSR 

nov 

CLR 



PC.T27REST 
PC.T27RT2 
PC.T27RT3 
#65000.. T27DLY 
T27CNT 



;»»»»»» BEGIN SUBTEST »»»»»» 
T3.1: 

TRAP CSBSUB 

;SET COMMAND PACKET 
.'SET UP OTHER COMMAND PACKET 
:SET UP OTHER COMMAND PACKET 
;SET UP DELAY COUNTER 
.'CLEAR COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 016644 
103426 

012727 000250 
000000 



10$: 



JSR 
BCS 
DELAY 



PC.SOFINIT 



:D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS^OK 
.'DELAY ABOUT .25 SEC 

MOV 
.WORD 



#250. (PC)* 
0 
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S£& d\) 



TCCT X» UDfTC 


DATA RETRf 


UD I the 


013727 


002116 




000000 


177772 


U J 1 1 j\J 


005367 


\Jj 1 1 


001375 




ACi i 


005367 


177756 


ACi i^o 


001367 


055672 


OO r O v3 1 1 D*« 


005337 


OQ77 0^1170 
Oof f Vj I I f U 


001356 




AM7A 0^11 7P 

OOr O \JJ lire 


004737 


020100 


OOOc 1 1 r Q 


010001 




OOOv 1 cUv 






051200 


104A55 




051202 


000455 




051 20A 


003550 




051206 


011666 




888A 051210 






8885 05121C 


012704 


055510 



8887 
8888 
8889 
8890 
8891 
8893 
8894 
8895 
8899 
8900 



8901 

8902 
8903 
8904 
8905 
8906 
8907 
8908 
8909 
8910 
8911 
8912 
8916 



8917 

8918 
8919 
8920 
8921 
8922 



051214 
051220 
051222 
051226 
051230 
051230 
051232 
051234 
051236 
051240 
051240 



004737 
103407 
004737 
010001 

104456 
000456 
004754 
011666 

104406 



051242 
05 1 246 
051250 
051252 
051256 
051256 
051260 
051262 
051264 
051266 
051266 



004737 
103407 
010004 
004737 

104456 
000457 
057045 
011700 

104406 



20$: 



DEC T270LY 

BNE 10$ 

JSR PC,FATCh< 

NOV R0,R1 

ERROF ERRNO«SFIERR,SFIHSG 



NOV #T27PACKET«R4 



NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

;BUNP COUNTER 
;BR, IF COUNTER NOT DONE 
;INC AND CHECK FOR NORE THAN 25 
.•CONTENTS OF TSSR REGISTER 
.•FATAL ERROR TSSR VAS NOT OK 

TRAr 
.WORD 
.WORD 
.WORD 



L$DLY,(PC)» 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 



ERRORS 



CSEROF 
301 

SFIERR 
SFINS6 



.•SUBROUTINE NEEDS PACKET ADDRESS 



010332 
020100 



WRITE CHARACTERISTICS CONHAND (CALL TO URTCHR) 



25$: 



JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 



URTCHR 



PC.FATCHK 
R0.R1 

ERRNO.URTNSG.SFINSG 



.'ISSUE MITE CHARACTERISTICS 

:6R. IF CONNANO ISSUED OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:SAVE CONTENTS OF TSSR 

.•WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 



C$ERHRD 

302 

URTNSG 
SFINSG 



C$CLP1 



ISSUE REWIND COHNAND TO SELECTED TAPE DRIVE 



010434 

020100 



30$: 



JSR 
BCS 
NOV 
JSR 

ERRHRD 



CKLOOP 



PC.REUIND 
30i 
R0.R4 
PC.FATCHK 

ERRN0,T27RWN«PKTSSR 



.CALL TAPE REWIND COHNAND 
;BR. IF NO PR06LEH 
;SET UP REWIND PACKET ADDRESS 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
303 

T27RWN 
PKTSSR 



TRAP C$CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



CZTUYAO TU80 FRONT END PRf C 
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8923 
892A 
8925 
8926 
8927 
8928 
8932 



8933 

893A 
893S 
8936 
8938 
89A0 
89A1 
89A2 
89A3 
8944 
8945 
8946 
8947 
8948 
8949 
8953 



8954 

8955 
8957 
8959 
8960 
8961 
8962 
8963 
8964 
8965 
8969 



8970 



8971 
8972 
8973 
8974 



051270 
051274 
051276 
051302 
051304 
051306 
051312 
051312 
051314 
051316 
051320 
051322 
051322 
051324 
051332 



051340 
051346 
051352 
051356 
051362 
051366 
051372 
051374 
051376 
051402 
051402 
051404 
051406 
051410 
051412 
051412 



051414 
051420 
051422 
051426 
051430 
051432 
051436 
051436 
051440 
051442 
051444 
051446 
051446 
051446 
051450 
051456 
051460 
051464 



013701 055536 
010102 

052702 000002 

020102 

001406 

004737 020100 

104456 
000460 
056541 
016344 



104406 
012737 
013737 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000461 
056452 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000462 
060211 
016344 



104403 
023727 
002402 
004737 



00C400 
003072 



141005 
055640 
177776 
017120 
000000 
100206 



020100 
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SEQ 



40$: 



MOV 
MOV 
BIS 
CMP 
B£Q 
JSR 

ERRHRO 



CKLOOP 



T27BFR^6,R1 

R1,R2 

#BIT1«R2 

R1.R2 

40$ 

PC,FATCHIC 

i:RRMO«T27BOT,£XPREC 



:PICK UP XSTO 

;SET UP EXPECTED 

;SET SOT BIT IN EXPECTED 

:DOES EXP ' REC'D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 



055646 
055642 



055640 



MOV #256.,T27S2 
MOV FREE,T27UB 



:LOOP IF SELECTED 

;SET UP RECORD SIZE 
.•ADDRESS OF WRITE BUFFER 



.WORD 
.WORD 
.WORD 



C$ERHRD 
304 
T27B0T 
EXPREC 



TRA»' CSCLP1 



WRITE DATA RETRY, ACK,CVC-1 COMMAND 



75$: 



MOV #141005,T27PK3 

MOV #T27PK3,R4 

MOV R4,TSDB(RS) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV #SSR ! SC IBITI <BIT2,R2 

CMP R1.R2 

BEQ 75$ 

JSR PC,FATCHK 

ERRHRO ERRII0«T27W0E,PKTSSR 



CKLOOP 



;WRITE DATA RETRY.ACK.CVCsl COMPIAND 
;SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 
;WAIT FOR SSR TO SET 
;GET rSSR CONTENTS 
;SET UP EXPECTED 
:ARE TNEY EQUAL 
;BR, IF OK 

:INC AND CHtCK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 

305 

T27W0E 
PKTSSR 



TRAP C$CLP1 



055536 
002000 

020100 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



MOV 
NOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRD 



170$: ENDSUB 



T27BFR*6,R1 ;GET 

R1,R2 ;SET 

#BIT10«R2 ;SET 

ft1.R2 ;ARE 

176$ ;BR, 

PCFATCHK ;INC 

ERRN0,T27NEF .EXPREC ;NEF 



XSTO STATUS WORD 
UP EXPECTED 
THE NEF BIT 
THEY EQUAL 
IF EQUAL (GOOD) 

AND CHECK FOR MORE THAN 25 ERRORS 
SHOULD BE SET 

TRAP C$ERHRD 
.WORD 306 
.WORD T27NEF 
.WORD EXPREC 



002170 
020152 



000031 



999$: 



CMP 
BLT 
JSR 



FATFLG,#25. 
999$ 

PC.CKDROP 



L10067: 

TRAP 

;IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
;TRy TO DROP THE UNIT 



C$ESUB 



CZTUYAO TU80 FRONT END PRT C 
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8976 
8977 
8978 
8979 
8980 
8981 
8982 
8983 
8984 
8985 
8986 
8987 
8988 
8989 
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TEST 3, SUBTEST 2 

VERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE 
THE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON 
TAPE (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT 
TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS 
ERROR BIT SET. 



SEO 



8990 
8991 
8992 
8993 
8994 
899S 
8996 
8997 
8998 
8999 
9000 
9001 
9002 
9006 
9007 



9008 
9009 
9010 
9011 
9012 
9013 
9014 
9015 
9016 
9017 
9018 
9019 
9023 
9024 



9025 

9026 
9027 



051464 
051464 
051464 
051466 
051472 
051476 



05 •'502 
05150^ 
051510 
051514 
051516 
051516 
051520 
051522 
051524 
051526 
051526 



051532 
051536 
051540 
051544 
051546 
051546 
051550 
051 552 
051554 
051556 
051 5S6 



104402 

004737 060644 

004737 060736 

004737 061000 



004737 016644 
103407 

C04737 020100 
0100C1 

104455 
000463 
003550 
011666 

012704 055510 



004737 010332 
103407 

004737 020100 
010001 

104456 
000464 
004754 
011666 

104406 



BGNSUB 



JSR 
JSR 
JSR 



PC,T27REST 

PC.T27RT2 

PC.T27RT3 



;»»»»»» BEGIN SUBTEST »»»»»» 
T3.2: 

TRAP C$BSUB 

;SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 



****************************************************************** 

ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
****************************************************************** 



JSR PC-SOFINIT 

BCS 20i 

JSR PCFATCHK 

MOV R0«R1 

ERRDF ERRNO,SFIERR,SFIMSG 



20S: 



:D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

: FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 307 
.WORD SFIERR 
.WORD SFIMSG 

: SUBROUTINE NEEDS PACKET ADDRESS 



nOV fT27PACKET,R4 
****************************************************************** 

WRITE CHARACTERISTICS CONMANO (CALL TO WRTCHR) 



25S: 



JSR 
BCS 
JSR 
MOV 
ERRHRD 



CKLOOP 



PC.WRTCHR 
25i 

PCFATCHK 
RO.RI 

ERRN0,WRTNSG«SFIMS6 



.•ISSUE WRITE CHARACTERISTICS 
;BR. IF COMMAND ISSUED OK 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
.SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 



.LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
308 

WRTMSG 
SFIMSG 



TRAP CSCLP1 



>****************************************************************** 



CZTUYAO TU80 FRONT END PRT C 
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9028 
9029 
9030 
9031 
9032 
9033 
9034 
9035 
9036 
9037 
9041 
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ISSUE REyiNO COmAND TO SELECTED TAPE DRIVE 



SEO 215 



9042 

9043 
9044 
9045 
9046 
9047 
9048 
9049 
9050 
9051 
9052 
9053 
9054 
9055 
9056 
9057 
9058 
9059 
9060 
9061 
9065 
9066 
9067 
9068 



9069 

9070 
9071 
9072 
9073 
9074 
9075 
9076 
9077 
9078 
9079 
9080 



051560 
05156'* 
051566 
051570 
051574 
05160C 
051600 
051602 
051604 
051606 
051610 
051610 
051612 
051616 



051624 
051632 
051636 
051642 
051646 
051652 
051656 
051662 
051664 
051666 



051672 
051672 
051674 
051676 
051700 
051702 
051702 



051704 
051710 
051712 
051716 



004737 010434 

103411 

010004 

016501 000000 
004737 020100 

104456 
000465 
057045 
011700 

104406 

012703 000400 
013737 003072 



JSR PC.REUIND 

BCS 26i 

nOV R0,R4 

nOV TSSR(RS),R1 

JSR PC,FATCHIC 

ERRHRD ERRN0,T27RUN,PKTSSR 



;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
;SET UP REWIND PACKET ADDRESS 
;GET TSSR CONTENTS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



26S: 



055642 



CKLOOP 

MOV 
MOV 



#256. ,R3 
FREE,T27WB 



TRAP 
.WORD 
.WORD 
.WORD 

:LOOP IF SELECTED 

TRAP 

; STARTING RECORD SIZE 
.•STARTING WRITE BUFFER ADDRESS 



CSERHRD 
309 

T27RWN 
PKTSSR 

CSCLP1 



WRITE DATA.CVC^I.ACK COMMAND 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000466 
005011 
011700 

104406 



140005 
055640 
055646 
177776 
017120 
000000 
000200 



020100 



055640 



MOV #1 40005, T27PK3 

MOV #T27PK3.R4 

MOV R3.T27S2 

MOV R4.TSDB(RS> 

JSR PC.WAITF 

MOV TSSR(R5).R1 

MOV «SSR.R2 

CMP R1-R2 

BEO 28i 

JSR PCFATCHK 



ERRSOFT ERRNO.WRTERR.PKTSSR 



.•WRITE DATA.CVCs1.ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
.•ISSUE COmAND 
.WAIT FOR SSR TO SET 
.•GET TSSR CONTENTS 
.SET UP EXPECTED 
.-ARE THEY EQUAL 
*EIR if OK 

•INC AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
;URITE CONHAND IS NOT BEING CHECKED 
.•HERE. IT WAS CHECKED IN CZTUXA 
;TSSR INCORRECT AFTER WRITE DATA 



28$: CKLOOP 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERSOFT 

310 

WRTERR 
PKTSSR 



TRAP CSCLPI 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004737 010434 
103411 

016501 000000 
010004 



JSR 
BCS 
MOV 
MOV 



PC. REWIND 
30i 

TSSR(R5).R1 
R0.R4 



.CALL TAPE REWIND COMMAND 

:BR. IF NO PROBLEM 

.-GET TSSR CONTENTS 

;SET UP REWIND PACKET ADDRESS 



J 
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9081 
9085 



9086 

9087 
9088 
9089 
9090 
9091 
9092 
9093 
909A 
9095 
9096 
9097 
9098 
9099 
9103 



9104 

9105 
9106 
9107 
9108 
9109 
9110 
9111 
9112 
9113 
91U 
9115 
9116 
9117 
9118 
9119 
9123 



912A 

9125 
9126 
9127 
9128 
9129 
9130 
9131 



051720 
051724 
051724 
C 51 726 
051730 
051732 
051734 
051734 



051736 
051742 
051744 
051750 
051752 
051754 
051760 
051760 
051762 
051764 
051766 
051770 
051770 



051772 
051776 
052002 
052004 
052010 
052014 
052016 
052022 
052022 
052024 
052026 
052030 
052032 
052032 



004737 020100 

104456 
000467 
057045 
011700 

104406 
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JSR PCFATCHK 

ERRHRO ERRN0«T27RWN,PKTSSR 



SEQ 2U 



30$: 



CKLOOP 



;INC AND CHECK FOR MORE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 

TRAP CSERHRD 
.WORD 311 
.WORD T27RWN 
.WORD PKTSSR 

.-LOOP IF SELECTED 

TRAP 



C$CLP1 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000470 
056541 
016344 

104406 



012703 
004737 
103413 
016501 
012702 
010004 
004737 

104456 
000471 
060307 
011700 

104406 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
****************************************************************** 



055536 
000002 

020100 



MOV 

mv 

BIS 
CHP 
BEQ 
JSR 



T27BFR4-6.R1 
R1,R2 
#6IT1,R2 
R1,R2 
40i 

PCFATCHK 



40$: 



ERRHRD ERRN0.T27B0T,EXPREC 



CKLOOP 



;PICK UP XSTO 

:SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

:DOES EXP 8 REC*D 

:BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
:TAPc NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



C$ERHRD 
312 
T27BOT 
EXPREC 



C$CLP1 



ISSUE SPACE RECORDS CONNAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - O^FORUARD 1 -REVERSE 



000001 
010140 

000000 
000200 

020100 



50$: 



NOV 
JSR 
BCS 
NOV 
MOV 
MOV 
JSR 

ERRHRD 



CKLOOP 



«nR3 

PC.SPACE 

50i 

TSSR(RS),R1 
«SSR,R2 
R0,R4 
PCFATCHK 

ERRN0,T27SCF .PKTSSR 



.-PARAMETER SPACE FORWARD 1 RECORD 

;CALL SPACE RECORDS ROUTINE 

;BR, IF NO ERRORS 

:GET TSSR CONTENTS 

;SET UP EXPECTED 

;SET UP REWIND PACKET ADDRESS 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

; SPACE RECORDS COMMAND FAILED 

TRAP C$ERHRD 
.WORD 313 
.WORD T27SCF 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP C$CLP1 



ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - O^FORWARD 1=REVERSE 

****************************************************************** 



CZTL'YAO TU80 FRONT END PRT C 
TEST 3: URITE DATA RETRY 



9133 
9:34 
91 i5 
913^ 
913^ 
9138 
9139 
9H3 



9UA 

9145 
9147 
9148 
9149 
9150 
9151 
9153 
9154 
9155 
9156 
9157 
9158 
9159 
9160 
9161 
9162 
9166 



9167 

9168 
9169 
9170 
9171 
9172 
9173 
9177 



91/8 
9179 



9180 
9181 
9182 
9183 



05.03/< 
052040 
052044 
052046 
052052 
052056 
052060 
052064 
C';2064 
052066 
052070 
052072 
052074 
052074 
052076 



052104 
052112 
052120 
052124 
052130 
052134 
052140 
052144 
052146 
052150 
052154 
052154 
052156 
052160 
052162 
052164 
052164 
052166 
052172 
052174 
052200 
052202 
052204 
052210 
052210 
052212 
052214 
052216 
052220 
052220 
052220 
052220 
052222 
052230 
052232 
052236 



012703 
004737 
103413 
016501 
012702 
010004 
004737 

104456 
000472 
060307 
011700 

104406 
013737 



104403 
023727 
002402 
004737 



100001 
010140 

000000 
000200 

020100 
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MOV #100001 ,R3 

JSR PC.SPACE 

BCS 60$ , 

NOV TSSR(R5),R1 

NOV #SSR,R2 

NOV R0,R4 

JSR PCFATCHK 

ERRHRO ERRN0J27SCF,PKTSSR 



SEQ 215 



012737 


141005 


012737 


000400 


012704 


055640 


010465 


177776 


004737 


017120 


016501 


000000 


012702 


100204 


020102 




001406 




004737 


020100 


104456 




000473 




060364 




011700 




104406 




013701 


055544 


010102 




052702 


000001 


020102 




001406 




004737 


020100 


104456 




000474 




060211 




016344 





003072 055642 



055640 
055646 



60S: CKLOOP 

NOV FREE,T27RB 



;PARANETER SPACE REVERSE 1 RECORD 

.'CALL SPACE RECORDS ROUTINE 

;8R, IF NO ERRORS 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;SET UP REWIND PACKET ADDRESS 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

; SPACE RECORDS CONNAND FAILED 

TRAP 
.WORD 
.WORD 
.UORD 

:LOOP IF SELECTED 

TRAP 

:ADORESS OF BUFFER 



CSERHRD 
314 
T27SCF 
PKTSSR 

CSCLP1 



yRITE DATA RETRY«ACK,CVCs1 CONNAND 



************** 

NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BED 
JSR 

ERRHRD 



**************************************************** 



#141005.T27PK3 

#256..T27SZ 

#T27PK3,R4 

R4.TSDB(R5) 

PCUAITF 

TSSR(R5).R1 

#SSR!SC!BIT2,R2 

R1.R2 

18d$ 

PCFATCHK 

ERRN0.T27TSA,PKTSSR 



180$: 



190$: 



CKLOOP 

NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



ENDSUB 



T27BFR+14.R1 

R1,R2 

#BIT0.R2 

R1,R2 

19d$ 

PCFATCHK 

ERRN0,T27NEF«EXPREC 



002170 
020152 



000031 



999$: 



CNP 
BLT 
JSR 



FATFL6.#25. 
999$ 

PC.CKDROP 



:URITE DATA RETRY.ACK.CVC^I CONNAND 

;SET UP THE SIZE OF RECORD 

:SET UP R4 WITH PACKET ADDRESS 

: ISSUE CONNAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED TAPE STATUS ALERT 

.ARE THEY EQUAL 

*BR IF OK 

Uni AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 315 
.WORD T27TSA 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP C$CLP1 

;6ET XST3 STATUS WORD 

;SET UP EXPECTED 

:SET THE RIB BIT 

;ARE THEY EQUAL 

:BR. IF EQUAL (GOOD) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;NEF SHOULD BE SET 

TRAP C$ERHRD 
.WORD 316 
.WORD T27NEF 
.WORD EXPREC 

;»»»»»» END SUBTEST »»»»»» 
L10070: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
:TRY TO DROP THE UNIT 



104402 

00A737 060644 

004737 060736 

004737 061000 



CZTUVAO TUBO FRONT END PRT C 
TEST 3: WRITE DATA RETRY 



9185 
9186 
9187 
9188 
9189 
9190 
9191 
9192 
9193 
9194 
9195 
9196 

9197 052236 
052236 
052236 

9198 052240 

9199 052244 

9200 052250 
9201 

9202 
9203 
9204 
9205 
9206 
9207 

9208 052254 

9209 052260 

9210 052262 

9214 052266 

9215 052270 
052270 
052272 
052274 
052276 

9216 052300 

9217 052300 
9218 

9219 
9220 
9221 
9222 
9223 
9224 

9225 052304 

9226 052310 

9227 052312 

9231 052316 

9232 052320 
052320 
052322 
052324 
052326 

9233 052330 
052330 
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TEST 3, SUBTEST 3 

VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB-O 
TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
BYTE COUNTS AND DATA PATTERNS ARE USED. 



SEQ 216 



B6NSUB 



JSR 
JSR 
JSR 



PC.T27REST 
PC.T27RTr 
PC.T27RT 



;»»»»»» BEGIN SUBTEST »»»»»» 
T3.3: 

TRAP CSBSUB 

;SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 016644 
103407 

004737 020100 
010001 

104455 
000475 
003550 
011666 

012704 055510 



20$: 



JSR PC.SOFINIT 

BCS 20i 

JSR PC.FATCNK 

MOV R0.R1 

ERROF ERRN0.SFIERR«SFINS6 



MOV #T27PACKET,R4 



:00 INITIALIZE ON CONTROLLER 
:BR IF INIT IMS OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

:FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 317 
.UORD SFIERR 
.UORD SFIMSG 

.•SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010332 
103407 

04737 020100 
10001 



9234 
9235 
9236 



1044S6 
000476 
004754 
011666 

104406 



23$: 



JSR 
BCS 
JSR 
MOV 
ERRHRD 



CKLOOP 



URTCHR 



PC.FATCNK 
RO.RI 

ERitNO.URTNSG.SFIMSG 



.•ISSUE WRITE CHARACTERISTICS 

.•BR. IF COMMAND ISSUED OK 

;INC AND CHECK F'"' MORE THAN 2S ERRORS 

;SAVE CONTENTS OF TSSR 

.•WRITE CHARACTERISTISC FAILED 

TRAP CSERHRO 

.WORD 318 

.WORD WRTMSG 

.WORD SFIMSG 

.•LOOP IF SELECTED . 

TRAP C$CLP1 



CZTUYAO TU80 FROMT END PRT C 
TEST 3: URITE DATA RETRY 



9237 
9238 
9239 
9240 
92A1 
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ISSUE REUIND COMNAND TO SELECTED TAPE DRIVE 



SEQ 217 



9244 . ^ 
9248 051 
05t 



_ 052332 

9242 052336 

9243 052340 
052342 

346 
346 
052350 
052352 
052354 
9249 052356 
052356 

9250 
9251 
9252 
9253 
9254 
9255 
9256 

9257 052360 

9258 052364 

9259 052366 

9260 052372 

9261 052374 

9262 052376 

9266 052402 
052402 
052404 
052406 
052410 

9267 052412 
052412 

9268 052414 

9269 052420 
9270 

9271 
9272 
9273 
9274 
9275 
9276 

9277 052426 

9278 052434 

9279 052440 

9280 052442 

9281 052446 

9282 052452 

9283 052456 

9284 052462 

9285 052466 

9286 052472 

9287 052474 

9288 052476 
9292 



004737 
103407 
010004 
004737 

104456 
000/77 
057045 
011700 

104';06 



010434 
020100 



30$: 



JSR 
BCS 
MOV 
JSR 

ERRHRD 



CKLOOP 



PC, REUIND 
30i 
R0,R4 
PC.FATCHK 

ERRN0,T27RUN,PKTSSR 



;CALL TAPE REWIND COMMAND 
:BR, IF NO PROBLEM 
;SET UP REUIND PACKET ADDRESS 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
;REUIND NOT ACCEPTED 



:LOOP IF SELECTED 



TRAP 
.UORD 
.UORD 
.UORD 



CSERHRD 
319 
T27RUN 
PKTSSR 



TRAP CSCLPI 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 055536 
010102 

052702 000002 

020102 

001406 

004737 020100 

104456 
000500 
056541 
016344 



104406 
012703 
013737 



40$: 



MOV 
NOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRD 



CKLOOP 



T27BFR«6,R1 

R1,R2 

#BIT1,R2 

RI.RZ 
40i 

PCFATCHK 

ERRN0,T27B0T,EXPREC 



00 
00 



055642 



MOV 
NOV 



#20.,R3 
FREE,T27UB 



;PICK UP XSTO 

:SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP » REC*D 

;BR. IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.-TAPE NOT AT BOT AFTER REUIND 

TRAP 
.UORD 
.UORD 
.UORD 

;LOOP IF SELECTED 

TRAP 

; STARTING RECORD SIZE 
;STARTIN6 URITE BUFFER ADDRESS 



C$ERHRD 
320 
T27B0T 
EXPREC 

C$CLP1 



URITE DATA,CVCs1,ACK COWMND 



012737 
01270A 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



140005 
055640 

020372 
055646 
177776 
017120 
000000 
000200 



020100 



0>)640 65$: 



NOV #140005, T27PK3 

NOV #T27PK3,R4 

NOV R3,R0 

JSR PCFILLNEN 

MOV R3,T27SZ 

MOV R4,TSDB(R5) 

JSR PC.UAITF 

MOV TSSR(R5},R1 

MOV #SSR,R2 

CMP R1.R2 

BEQ 80$ 

JSR PCFATCHK 



:URITE DATA,CVCs1 ,ACK COMMAND 
;SET UP ft4 UITH PACKET ADDRESS 
;SET PATTERN IN CORRECT REGISTER 
:FILL NENORY UITH RECORD SIZE 
.-SET UP RECORD SIZE IN PACKET 
.-ISSUE CONNAND 
;UAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
.'SET UP EXPECTED 
:ARE THEY EQUAL 
;BR. IF OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
.SOFT ERROR GENERATED BECAUSE THE 



C2TUYA0 TU80 FRONT END PRT C 
TEST 3: WRITE DATA RETRY 



9293 
9294 

9295 052502 
052502 
052504 
052506 
052510 

9296 052512 
052512 

9297 
9298 
9299 
9300 
9301 
9302 
9303 

9304 052514 

9305 052522 

9306 052526 

9307 052532 

9308 052536 

9309 052542 

9310 052544 

9311 052546 

9315 052552 
052552 
052554 
052556 
052560 

9316 052562 
052562 

9317 052564 
9318 
9319 
9320 
9321 
9522 
9323 
9324 



052566 
052572 



93; 
93; 
93i 



052574 



9328 052600 

9329 052602 

9330 052604 

9334 052610 
052610 
052612 
052614 
052616 

9335 052620 
052620 

9336 
9337 
9338 
9339 
9340 



104457 
000501 
005011 
011700 

104406 



012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000502 
060446 
011700 

104406 
005723 
020327 
001315 
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ERRSOFT ERRNO.URTERR.PKTSSR 



80$: CKLOOP 



SEQ 21a 



;URITE COrWAND IS NOT BEING CHECKED 
:HERE. IT WAS CHECKED IN CZTUXA 
;TSSR INCORRECT AFTER WRITE DATA 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERSOFT 
321 

WRTERR 
PKTSSR 



TRAP CSCLP1 



WRITE DATA RETRV,CVC»1.ACK COMMAND 



141005 
177776 
017120 
000000 
000200 



020100 



055640 



MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
8EQ 
JSR 

ERRHRD 



90S: CKLOOP 



#141005.T27PK3 

R4,TSDB(R5) 

PCWAITF 

TSSR(RS).R1 

#SSR.R2 

RI.R^ 
90i 

PCFATCHK 

ERRNO,T27WRF.PKTSSR 



000050 



TST 
CMP 
8NE 



(R3)^ 

R3.#40. 

65i 



;WRITE DATA RETRY, CVC>1«ACK COMMAND 

.-ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;6ET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

*6R IF OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER WRITE DATA RETRY 

TRAP CSERKRD 

.WORD 

.WORD 

.WORD 

:LOOP IF SELECTED 

TRAP 

;BUMP RECORD SIZE COUNTER 
;AT 40 SIZE YET 
;BR, IF MORE RECORDS TO WRITE 



tI^wrf 

PKTSSR 
CSCLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

****************************************************************** 



004737 010434 

103407 

010001 

004737 020100 

104456 
000503 
057045 
016344 

104406 



JSR 
8CS 
MOV 
JSR 

ERRHRD 



230S: CKLOOP 



PC.REWIND 
23dS 
RO.RI 
PCFATCHK 

ERRN:'. T27RWN.EXPREC 



;CALL TAPE REWIND COMMAND 
;BR, IF NO F.-^OBLEN 
'SAVE TSSR 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



RHRD 



T27RWN 
EXPREC 



TRAP CSCLPI 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



C2TUYA0 TU80 F* ONT END PRT C 
TEST 3: URITt 0/ ,A RETRY 
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SEO 21 



93A1 
9342 

9343 052622 

9344 052626 

9345 052630 

9346 052634 

9347 052636 

9348 052640 

9352 052644 
052644 
052646 
052650 
052652 

9353 052654 
052654 

9354 052656 
^662 



9355 
9356 
9357 
9358 
9359 
9760 
9361 
9362 
936 



05< 



052670 



9364 052674 

9365 05r 

9366 05' 

9367 052712 

9368 052716 

9369 052722 

9370 052726 

9371 052730 

9372 052732 

9376 052736 
052736 
052740 
052742 
052744 

9377 052746 
052746 

9378 052750 

9379 052754 

9380 052756 

9381 052762 

9382 052764 

9383 052766 

9384 052770 

9385 052772 

9386 052774 

9390 053000 
053000 
053002 
053004 
053006 

9391 053010 
053010 



013701 055536 
010102 

052702 000002 

020102 

001406 

004737 020100 

104456 
000504 
056541 
016344 

104406 

012703 000024 
013737 003072 055642 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 



T27BFR«6,R1 
R1,R2 
fBIT1.R2 
R1.R2 
240$ 

PC.FATCHK 



ERRHRD ERiiN0,T2780T.EXPREC 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP ' REC'D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 



240$: CKLOOP 

NOV 
NOV 



;LOOP IF SELECTED 



.UORD 
.WORD 
.WORD 



C$ERHRD 
324 
T27BOT 
EXPREC 



#20.. R3, 
FREE.T27RB 



.•STARTING RECORD SIZE 
.•STARTING READ BUFFER ADDRESS 



TRAP C$CLP1 



****************************************************************** 
READ DATA.ACK CONNAND 

••••****•**♦♦♦♦»**♦♦♦♦*•••**♦♦♦♦**•*****♦♦♦*♦»•♦*♦*♦♦**********••** 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000505 
005104 
011700 

104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
0C4737 

104456 
000506 
060526 
016344 

104406 



100001 055640 

055640 

055646 

177776 

017120 

000000 

000200 



020100 



003072 
000024 



020100 



265$: NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



280$: CKLOOP 

NOV 
NOV 
SUB 

285$: ADD 
CNP 
BEQ 
NOV 
NOV 
JSR 

ERRHRD 



290$: CKLOOP 



#1 00001. T27PK3 

#T27PK3.R4 

R3.T27SZ 

R4.TSDB(R5> 

PC.WAITF 

TSSR(R5).R1 

«SSR.R2 

R1.R2 

285$ 

PC.FATCHK 
ERRNO.RDERR.PKTSSR 



.•READ DATA.ACK CONNAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

.•ISSUE CONNAND 

;WAIT FOR SSR TO SET 

;6ET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

•BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP 



;LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



C$ERHRD 
325 
RDERR 
PKTSSR 



FREE.R2 

R3.R4 

#20.. R4 

R2,R4 , 

(R4).R3 

290$ 

(R4).R1 

R3.R2 

PC.FATCHK 

ERRN0.T27DTA.EXPREC 



TRAP C$CLP1 



;6ET BUFFER ADDRESS 
;GET RECORD SIZE 
;POINT BACK TO 1ST RECORD 
.•POINT TO 1ST LOC IN BUFFER 
;DATA WRITTEN = READ 
;BR. IF DATA OK (GOOD) 
.•PICK UP BAD DATA 
;SET UP EXPECTED 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.•DATA IN BUFFER NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 

;10(* IF SELECTED ^^^^ 



CSERHRD 

?26 
T270TA 
EXPREC 



B 2 



CZTUYAO TU80 FRONT END PRT C 
TEST 3: WRITE DATA RETRY 
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9392 053012 

9393 0530H 

9394 053016 

9395 053020 

9396 053022 

9397 053024 

9398 053030 

9399 053032 
053032 

9400 053034 

9401 053034 
053034 
053034 

9402 053036 

9403 053044 

9404 0S3046 

9405 0S3052 



005724 
160204 
020403 
001360 
005723 
020327 
001317 

104406 



104403 
023727 
002402 
004737 



000050 



300$: 
330S: 



002170 000031 
020152 



TST 
SUB 
CHP 
BNE 
TST 
CHP 
BNE 

CKLOOP 



ENOSUB 



999S: 



CUP 

BLT 
JSR 



(R4)* 

R2,R4 

R4.R3 

28$$ 

<R3)* 

R3.«40. 

26$$ 



FATFLG.#25. 
999$ 

PC^CKOROP 



;BUMP TO NEXT ADDRESS 
;BACK TO RECORD SIZE 
;AT END OF RECORD YET 
;BR, IF MORE DATA TO CHECK 
;BUNP RECORD SIZE 
;DONE YET 

;BR, IF NOT DONE YET (MORE READS) 
;LOOP IF SELECTED 

TRAP C$CLP1 

;»»»»»» END SUBTEST »»»»»» 
LI 0071: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
:TRY TO DROP THE UNIT 



C2TUYA0 TU80 FRONT END PRT C 
TEST 3: yRlTE DATA RETRY 



9407 
9408 
9409 
9410 
9411 
9412 
9413 
9414 
9415 
9416 
9417 
9418 
9419 



C 2 
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SEQ 221 



9420 
9421 
9422 
9423 
9424 
9425 
9426 
9427 
9428 
9429 
9430 
9431 
9432 
9433 



053052 
053052 
053052 
053054 
053060 
053064 
053070 



TEST 3. SUBTEST 4 

VERIFIES THAT A WRITE DATA RETRY COMMAND UITH SUB>1 
TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
BYTE COUNTS AND DATA PATTERNS ARE USSD. 



9434 
9435 
9436 
9440 
9441 



9442 
9443 
9a4 
9445 
9446 
9447 
9448 
9449 
9450 
9451 
9452 



053076 
053102 
053104 
053104 
053110 
053112 
053116 
053120 
053124 
053126 
053132 
053134 
053140 
053142 
0531 4 S 
053150 
053150 
053152 
053154 
053156 
053160 
053160 



104402 
004737 
004737 
004737 
012737 



060644 
060736 
061000 
176750 



055672 



B6NSUB 



JSR 
JSR 
JSR 
MOV 



PC,T27REST 
PC,T27RT2 
PC.T27RT3 
#65000., T27DLV 



;»»»»»» BEGIN SUBTEST »»»»»» 
T3.4: 

TRAP CSBSUB 

SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP DELAY COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000507 
003550 
011666 



012704 055510 



016644 

000250 
002116 
}77772 
177756 
055672 
020100 



10S: 



JSR 
BCS 
DELAY 



PC.SOFINIT 

20i 

250 



20$: 



DEC 
BNE 
JSR 
NOV 
ERRDF 



NOV 



T27DLV 
10S 

PCFATCHK 
R0.R1 

ERRN0.SFIERR.SFINS6 



fT27PACKET.R4 



;D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 
: DELAY ABOUT .25 SEC 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 



#250. (PC)* 

L$DLV.(PC)* 

0 

-6(PC) 
.-4 

-22(PC) 
.-20 



;BUMP COUNTER 
:BR« IF COUNTER NOT DONE 
;INC AND CHECK FOR NORE THAN 25 ERROR*: 
: CONTENTS OF TSSR REGISTER 
; FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 327 
.WORD SFIERR 
.WORD SFIMS6 

.•SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



053164 
05?170 



004737 
103407 



010332 



JSR 
BCS 



g^WRTCHR 



.-ISSUE WRITE CHARACTERISTICS 
;BR. IF COMMAND ISSUED OK 



CZTUYAO TU80 FRONT END PRT C 
TEST 3: WRITE DATA RETRY 



0 2 
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9453 
9457 
9458 



9459 

9460 
9461 
9462 
9463 
9464 
9465 
9466 
9467 
9468 
9469 
9470 
9471 
9475 



9476 

9477 
9478 
9479 
9480 
9481 
9482 
9483 
9484 
9485 
9486 
9487 
9488 
9489 
9493 



053172 



053176 
3200 
053200 



05 



053202 
053204 
053206 
053210 
053210 



053212 
053216 
053220 
053224 
053226 
053232 
053232 
053234 
053236 
053240 
053242 
053242 



9494 

9495 
9496 
9497 
9498 
9499 
9500 
9501 
9502 
9503 



053244 
053250 
053252 
053256 
053260 
053262 
053266 
053266 
053270 
053272 
053274 
053276 
053276 
053300 
053304 



004737 020100 
010001 

104456 
000510 
004754 
011666 

104406 



JSR 
NOV 
ERRHRD 



23S: CKLOOP 



PC.FATCHK 
R0,R1 

ERRN0,WRTHS6,SFIMS6 



;INC AND CHECK FOR MORE THAN 25 ERRORS 
;SAVE CONTENTS OF TSSR 
;URITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



CSERHRD 
328 

WRTPISG 

SF insG 



CtCLPI 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004737 010434 
103411 

016501 000000 
010004 

004737 020100 

104456 
000511 
057045 
011700 

104406 



30$: 



JSR 
BCS 
NOV 
NOV 
JSR 

ERRHRD 



CKLOOP 



PC.REWIND 
30i 

TSSR(R5>,R1 

R0,R4 

PCFATCHK 

ERRNO.T27RWN,PKTSSR 



;CALL TAPF REWIND COMMAND 

;BR, IF NO PROBLEM 

;GET TSSR CONTENTS 

:GET PACKET ADDRESS 

;INC AND CHECK FOR MORE THAN 25 

;REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



ERRORS 



SERHRD 
29 

T27^ 
PKTSSR 



CfCLPI 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 055536 
010102 

052702 000002 

020102 

001406 

004737 020100 

104456 
000512 
056541 
016344 

104406 

012703 000024 
013737 003072 055642 



40S: 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRD 



CKLOOP 



T27BFR^6.R1 

R1,R2 

#BiT1.R2 

R1.R2 

40i 

PCFATCHK 

ERRN0«T2760T.EXPREC 



MOV 
MOV 



#20., R3 
FREE,T27WB 



:PICK UP XSTO 

:SET UP EXPECTED 

;$ET BOT BIT IN EXPECTED 

.DOES EXP s REC*D 

;BR« IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 330 
.WORD T27B0T 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP CSCLP1 

.STARTING RECORD SIZE 
.STARTING WRITE BUFFER ADDRESS 



WRITE 0ATA.CVCs1.ACK COMMAND 



CZTUYAO TUBO FRONT END PRT C 
TEST 3: WRITE DATA RETRY 
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9504 
9505 
9506 
9507 
9508 
9509 
9510 
951'. 
9512 
9513 
95U 
9515 
9519 
9520 
9521 
9522 



9523 

9524 
9525 
9526 
9527 
9528 
9529 
9530 
9531 
9532 
9533 
9534 
9535 
9536 
9537 
9538 
9542 



9543 

9544 
9545 
9546 

95^7 

95<..' 
y549 
9550 
9551 
9552 
9553 
9554 
9555 
9556 



053312 
053320 
053324 
053326 
053332 
053536 
053342 
053346 
053352 
053356 
053360 
053362 



053366 
053366 
053370 
053372 
053374 
053376 
053376 



053400 
053406 
053412 
053416 
053422 
053426 
053430 
053432 
053436 
053436 
053440 
053442 
053444 
053446 
053446 
053450 
053452 
053456 



053460 
053464 
053466 



012737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000513 
005011 
011700 

104406 



012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000514 
060446 
016344 

104406 
005723 
020327 
001315 



140005 
055640 

020372 
055646 
177776 
017120 
000000 
000200 



020100 



111005 
177776 
017120 
000000 
000200 



020100 



000050 



004737 010434 
103411 

016501 000000 



055640 65 t: 



NOV #140005, T27PIC3 

NOV #T27PIC3.R4 

NOV R3,R0 

JSR PCFILLNEN 

NOV R3,T27S2 

MOV R4,TSDB(R5) 

JSR PCUAITF 

NOV TSSR(R5>,R1 

NOV #SSR.R2 

CNP R1.R2 

BEQ 80i 

JSR PCFATCHK 



ERRSOFT ERRNO^URTERR.PKTSSR 



80$: 



CKLOOP 



:URITE 0ATA,CVC-1,ACK CONNAND 
:SET UP R4 WITH PACKET ADDRESS 
;SET PATTERN IN CORRECT REGISTER 
.'FILL NENORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
; ISSUE CONNAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
:ARE THEY EQUAL 
:BR, IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
:URITE CONNAND IS NOT BEING CHECKED 
:HERE. IT WAS CHECKED IN CZTUXA 
:T$SR INCORRECT AFTER WRITE DATA 

TRAP CSERSOFT 

.WORD 

.WORD 

.WORD 

;LOOP IF SELECTED 

TRAP 



331 
WRTERR 
PKTSSR 



CSCLPI 



WRITE DATA RETRY«ACIC,SUB>1 CONNAND 



055640 



90$: 



NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 
ERRHRD 



CKLOOP 



#111005,T27PK3 

R4,TS0B(R5) 

PCUAITF 

TSSR(RS>,R1 

fSSR.R2 

R1.R2 

90i 

PCFATCHK 

ERRN0«T27WRF,EXPREC 



TST 
CNP 
8NE 



<R3)* 

R3,#40. 

65i 



;URITE DATA RETRY«ACK,SWB»1 CONNAND 

; ISSUE CONNAND 

;UAIT FOR SSR TO SET 

;6ET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER WRITE DATA RETRY 

TRAP C$ERHRD 
.WORD 332 
.WORD T27WRF 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 
;BUNP RECORD SIZE COUNTER 
;AT 40 SIZE YET 
;BR, IF NORE RECORDS TO WRITE 



ISSUE REWIND CONNAND TO SELECTED TAPE DRIVE 



JSR 
BCS 
NOV 



PC.REWIND 
236$ 

TSSR(R5>,R1 



;CALL TAPE REWIND CONNAND 
:BR, IF MO PROBLEN 
;6ET TSSR CONTENTS 



CZTUYAO TU80 FRONT END PRT 
TEST 3: WRITE DATA RETRY 
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SEQ 



9557 
9558 
9562 



9563 

9564 
9565 
9566 
9567 
9568 
9569 
9570 
9571 
9572 
9573 
9574 
9575 
9576 
9580 



9581 

9582 
9583 
9584 
9585 
9586 
9587 
9588 
9589 
9590 
9591 
9592 
9593 
9594 
9595 
9596 
9597 
9598 
9599 
9600 
9604 



9605 

9606 
9607 



053472 
053474 
053500 
053500 
053502 
053S04 
053506 
053510 
053510 



053512 
053516 
053520 
053524 
053526 
053530 
053534 
053534 
053536 
053540 
053542 
053544 
053544 
053546 
053552 



053560 
053566 
053572 
053576 
053602 
053606 
053612 
053616 
053620 
053622 
053626 
053626 
053630 
053632 
053634 
053636 
053636 
053640 
053644 



010004 
004737 

104456 
000515 
057045 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000516 
056541 
016344 

104406 
012703 
013737 



012737 
012704 
010337 
01 0465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000517 
005104 
011700 

104406 
013702 
010304 



020100 



NOV 
JSR 

ERRHRD 



230S: CKLOOP 



R0,R4 
PCFATCHK 

ERRN0,T27RUN,PKTSSR 



;6ET PACKET ADDRESS 
;INC AND CHECK FOR MORE 
.REWIND NOT ACCEPTED 



:LOOP IF SELECTED 



THAN 25 ERRORS 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
353 

T27RWN 
PKTSSR 



TRAP CSCLPI 



READ MESSAGE SUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



055536 
000002 

020100 



T27BFR«6,R1 
R1,R2 
#BIT1,R2 
R1.R2 
246s 

PC.FATCHK 



MOV 
NOV 
BIS 
CNP 
BEQ 

JSR „ 

ERRHRD ERRN0,T27B0T«EXPREC 



000024 
003072 



055642 



240S: CKLOOP 

NOV 
NOV 



«20..R3 
FREE«T27RB 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

:DOES EXP 8 REC*D 

;BR. IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAr> 

.•STARTING RECORD SIZE 
.-STARTING READ BUFFER ADDRESS 



CSERHftD 

334 

T27BOT 
EXPREC 

CfCLPI 



****************************************************************** 
READ DATA.ACK CONNAND 



100001 
055640 
055646 
177776 
017120 
000000 
000200 



020100 



055640 265$: 



NOV 
NOV 
NJV 
NOV 
JSR 
NOV 
NOV 
CNP 
SEQ 
JSR 

ERRHRD 



^80%: CKLOOP 



#100001. T27PK3 

#T27PK3.R4 

R3.T27Si 

R4«TS0B(R5) 

PC.WAITF 

TSSR(R)).R1 

#SSR.R2 

R1.R2 

286s 

PC.FATCHK 
ERRNO.RDEKR.PKTSSR 



;READ DATA.ACK COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

.•ISSUE COMMAND 

;WAIT FOR SSR TO SET 

:6ET TSSR CONTENTS 

; SET UP EXPECTED 

;ARE THEY EQUAL 

*BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
.-TSSR INCORRECT AFTER READ DATA 

TRAP 



003072 



NOV 
NOV 



FREE,R2 
R3.R4 



.LOOP IF SELECTED 

:GET BUFFER ADDRESS 
.-GET RECORD SIZE 



.WORD 
.WORD 
.WORD 



CSERHRD 
335 
RDERR 
PKTSSR 



TRAP CSCLPI 



6 2 



C2TUYA0 TU80 FRONT END PRT C 
TEST 3: WRITE DATA RETRY 
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9608 053646 

9609 053652 

9610 053654 

9611 053656 

9612 053660 

9613 053662 

9614 053664 

9615 053666 

9619 053672 
053672 
053674 
053676 
053700 

9620 053702 
053702 

9621 053704 

9622 053706 

9623 053710 

9624 053712 

9625 053714 

9626 053716 

9627 053720 

9628 053724 

9629 053726 
053726 

9630 053730 
053730 
053730 

9631 053732 

9632 053740 

9633 053742 

9634 0S3746 



162704 
060204 
000303 
021403 
001410 
011401 
010302 
004737 

104456 
000520 
060526 
016344 

104406 
00S724 
160204 
000303 
020403 
001356 
005723 
020327 
001315 

104406 



104403 
023727 
002402 
004737 



000024 



285S: 



020100 



290$: 



000046 



300$: 



002170 
020152 



000031 



999$: 



SUB 

ADO 

SUAB 

C«P 

BCQ 

NOV 

nov 

JSR 

ERRHRO 



CKLOOP 

TST 

SUB 

SUAB 

CUP 

BNE 

TST 

C«P 

BNE 

CKLOOP 
ENDSUB 



CUP 
BLT 
JSR 



«20..R4 

R2.R4 

R3 

(R4),R3 

290* 

(R4).R1 

R3,R2 

PC.FATCHK 

ERRNO,T270TA,EXPREC 



(R4>^ 

R4.R3 

(R3)^ 

R3.#38. 

26$$ 



FATFL6,i?25. 
999$ 

PCCKDROP 



;POINT BACK TO 1ST RECORD 
;POINT TO 1ST LOC IN BUFFER 
;SUAP BYTES SUB<>-1 ETC. 
:DATA WRITTEN * READ 
:BR, IF DATA OK (GOOD) 
;PICK UP BAD DATA 
;SET UP EXPECTED 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;OATA IN BUFFER NOT CORRECT 

TRAP 



LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



CSERHRD 
336 
T27DTA 
EXPREC 



TRAP C$CLP1 



BUMP TO NEXT ADDRESS 
BACK TO RECORD SIZE 
PUT R3 BACK INTO SHAPE 
AT END OF RECORD YET 
BR, IF MORE DATA TO CHECK 
BUMP RECORD SIZE 
DONE YET 

BR, IF NOT DONE YET (MORE READS) 
LOOP IF SELECTED 

TRAP C$CLP1 
»»»»»» END SUBTEST »»»»»» 
L10072: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIl 



CZTUYaO TU80 FROM? END PRT C 
TEST 3: WRITE DATA RETRY 



9636 
9637 
9638 
9639 
9640 
9641 
9642 
9643 
9644 
964S 
9646 
9647 
9648 
9649 
96S0 
9651 
9652 
9653 
9654 
9655 
9656 
9657 
9658 
9659 
9660 
9661 
9662 
9663 
9664 
9665 
9666 
9667 
9668 
9669 
9670 
9671 
9672 
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TEST 3, SUBTEST 5 



SEQ 226 



9673 
9674 
9675 
9676 
9677 
9678 
9679 
9680 
9681 
9682 
9683 
9684 
9685 
9686 
9687 
9688 
9689 



053746 
053746 
053746 
053750 
053754 
053760 
053764 
053770 
053774 
054000 



VERIFIES THAT A WRITE DATA RETRY COMMAND IS 
PERFORMING THE 'tRASE" PART OF THE OPERATION BY 
PERFORMING THE FOLLOWING SERIES OF STEPS. 



1. 
2. 

3. 

4. 
5. 



104402 
005037 
005037 
005037 
004737 
004737 
00<.737 
012737 



002172 
055666 
055670 
060644 
060736 
061000 
176750 



055672 



THE TAPE IS REWOUND AND A SERIES np RECORDS ARE 
WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS 
SHOULD RESULT IN RECORDS SEPARATED BY THE 
STANDARD INTERRECORD GAP. 

A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING 
THE TAPE AND THEN CONUTING THE NUMBER OF CYCLES 
THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER 
THE SERIES OF RECORDS WRITTEN IN PREVIOUS 
STEP 

THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF 
RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE 
DATA RETRY COMMAND. THIS SHOULD RESULT IN 
RECORDS SEPARATED BY A LONG INTERRECORD GAP. 

THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND 
ISSUED. AND THE NUMBER OF TIMMIN6 LOOP CYCLES 
COUNTED TO COMPLETE THE OPERATION. 

THE TWO LOOP COUNTS ARE COMPARED. CHECKING TO SEE 
THAT THEY DIFFER BY A SIGNIFICANT AMOUNT. 



BGNSUB 



CLR 
CLR 
CLR 
JSR 
JSR 
JSR 
MOV 



INTRECV 
T27CNT 
T27CNU 
PC,T27REST 
PC.T27RTi 
PC.T27RT 
«6$000., 



T27DLY 



;»»»»»» BEGIN SUBTEST »»»»»» 
T3.5: 

TRAP CIBSUB 

INTERRUPT INDICATOR 

TIMER FOR WRITE DATA SPACING 

TIMER FOR WRITE DATA RETRY SPACING 

SET COMMAND PACKET 

SET UP OTHER COMMAND PACKET 

SET UP OTHER COMMAND PACKET 

SET UP DELAY COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



0540C6 
054012 
054014 
054014 



004737 016644 
103426 

012727 000250 



10S: JSR PC.SOFINir 
BCS 20$ 
DELAY 250 



;D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 
; DELAY ABOUT .25 SEC 

MOV 



#250, (PC) ♦ 



J 



C2TUYA0 TU80 FRONT END PRT C 
TEST 3: WRITE DATA RETRY 



I 2 

MACRO N1200 29-nAR-83 13:43 PAGE 105-1 



SEO 227 



9690 
9691 
9692 
9696 
9697 



9698 
9699 
9700 
9701 
9702 
9703 
9704 
9705 
9706 
9707 
9708 
9709 
9710 
9714 
9715 



9716 

9717 
9718 
9719 
9720 
0721 
9722 
9723 
9724 
9725 
9726 
9727 
9728 
9732 



9753 
9734 



054020 
054022 
054026 
054030 
054034 
054036 
054042 
054044 
054050 
054052 
054056 
054060 
054060 
054062 
054064 
054066 
054070 



OOOCOO 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000521 
003550 
011666 



002116 
U7772 
177756 
055672 
020100 



DEC 
BNE 
JSR 
NOV 
ERRDF 



T27DLY 
10$ 

PCFATCHK 
R0.R1 

ERRN0,SFlERR»SFJflS6 



20$: 



.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

:BUnP COUNTER 
;BR. IF COUNTER NOT DONE 
:INC AND CHECK FOR HORE THAN 25 
.•CONTENTS OF TSSR REGISTER 
.-FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



L$DLY,(PC)* 
0 

-6 (PC) 
.-4 

-22 (PC) 
.-20 



ERRORS 



CSERDF 
337 

SFIERR 
SFIMSG 



054070 012704 055510 



NOV 



#T27PACKET.R4 



.•SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS CONNAND (CALL TO WRTCHR) 



054074 
054100 
054102 
054106 
054110 
054110 
054112 
054114 
054116 
054120 
054120 



004737 
103407 
004737 
010001 

104456 
000522 
004754 
011666 

104406 



010332 
020100 



23$: 



JSR 
BCS 
JSR 
NOV 
ERRHRO 



CKLOOP 



Ik 



WRTCHR 



PC.FATCHK 
R0.R1 

ERRN0.WRTNSG.SFINS6 



.•ISSUE WRITE CHARACTERISTICS 

;BR. IF CONNAND ISSUED OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.-SAVE CONTENTS OF TSSR 

:WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

.•LOOP IF SELECTED 

TRAP 



C$ERHRD 
338 

WRTNSG 
SFINSG 



C$CLP1 



ISSUE REWIND CONNAND TO SELECTED TAPE DRIVE 



054122 
054126 
054130 
054134 
054136 
054142 
054142 
054144 
054146 
054150 
054152 
054152 



004737 
103411 
016501 
010004 
004737 

104456 
000523 
057045 
011700 

104406 



010434 
000000 
020100 



30$: 



JSR 
BCS 
NOV 
NOV 
JSR 
ERRHRD 



CKLOOP 



PC.REWIND 
30i 

TSSR(R5).R1 

R0.R4 

PC.FATCHK 

ERRN0.T27RWN.PKTSSR 



.•CALL TAPE REWIND CONNAND 
;BR. IF NO PROBLEN 
;GET TSSR CONTENTS 
.GET PACKET ADDRESS 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
: REWIND NOT ACCEPTED 



:LO0P IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
339 

T27RWN 
PKTSSR 



TRAP C$CLP1 



CZTUYAO TU80 FRONT END PRT 
TEST 3: DATA RETRY 



9735 
9736 
9737 
9738 
9739 
9740 
9741 



J 2 

C MACRO HI 200 29-nAR-83 13:43 PAGE 105-2 



SEQ 22( 



054154 

9742 054160 

9743 054162 

9744 054166 

9745 054170 

9746 054172 

9750 054176 
054176 
054200 
054202 
054204 

9751 054206 
054206 

9752 054210 

9753 054214 
9754 

9755 
9756 
9757 
9758 
9759 
9760 

9761 054222 

9762 054230 

9763 054234 

9764 054242 

9765 054246 

9766 054252 

9767 054256 

9768 054262 

9769 054264 

9770 054266 
9774 

9775 
9776 

9777 054272 
054272 
054274 
054276 
054300 

9778 054302 
054302 

9779 054304 

9780 054306 
9781 

9784 
9785 
9786 
9787 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000524 
056541 
016344 

104406 
012703 
013737 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
»25 



005011 
011700 



104406 
00530r 
00134 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



055536 
000002 

020100 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 



T27BFR«6.R1 

R1«R2 

«BIT1.R2 

R1.R2 

40i 

PC.FATCHK 



ERRHRD ERRN0,T27B0T«EXPREC 



40S: 



000144 
003072 



055642 



CKLOOP 

MOV 
NOV 



«100.,R3 
FREE,T27y6 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

.-DOES EXP > REC*D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.yORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

.-NUMBER OF RECORDS TO BE WRITTEN 
; STARTING WRITE BUFFER ADDRESS 



CSERHRD 
340 
T27BOT 
EXPREC 

CSCLP1 



****************************************************************** 

WRITE DATA.ACK,CVCs1 COMMAND 



140005 
055640 
000024 
177776 
017120 
000000 
000200 



020100 



055640 65S: 
0S5646 



MOV #1 40005. T27PK3 

MOV #T27PK3.R4 

MOV f20..T27SZ 

NOV R4.TSDB(R5) 

JSR PCWAITF 

NOV TSSR(R5)«R1 

NOV #SSR.R2 

CNP R1.R2 

BEQ 70$ 

JSR PC.FATCHK 



ERRSOFT ERRNO.WRTERR.PKTSSR 



;WRITE DATA.ACK.CVC^I COMNAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
.-ISSUE COHNAND 
.-WAIT FOR SSR TO SET 
.-GET TSSR CONTENTS 
.-SET UP EXPECTED 
.-ARE THEY EQUAL 
;BR. IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
.-SOFT ERROR GENERATED BECAUSE THE 
.-WRITE COHNAND IS NOT BEING CHECKED 
.-HERE. IT WAS CHECKED IN CZTUXA 



;TSSR INCORRECT AFTER WRITE DATA 



70$: 



CKLOOP 
DEC 



.-LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERSOFT 
341 

WRTERR 
PKTSSR 



R3 
65$ 



.DEC RECORD COUNTER 
;BR. IF NORE RECORDS TO WRITE 



TRAP C$CLP1 



ISSUE REWIND CONNAND TO SELECTED TAPE DRIVE 



CZrUYAO TU80 FRONT END PRT C 
TEST 3: yRITE DATA RETRY 



9788 05A310 


004737 


010434 


9789 05A3U 


103411 




9790 054316 


016501 


000000 


9791 054322 


010004 




9792 054 324 


004737 


020100 


9796 054330 






054330 


104456 




054332 


000526 




054334 


057045 




054336 


011700 




9797 054340 






054340 


104406 





9798 
9799 
9800 
9801 
9802 
9803 
9804 
9805 
9806 
9807 
9808 
9809 
9810 
9814 



9815 

9816 
9817 
9818 
9819 
9820 
9821 
9822 
9823 
9824 
9825 
9826 
9827 
9828 



054342 
054346 
054350 
054354 
054356 
054360 
054364 
054364 
054366 
054370 
054372 
054374 
054374 
054376 
054402 



9829 
9830 
9831 
9832 



054410 
054416 
054422 
054426 
054426 
054432 
054434 
054440 
054442 
054446 
054450 
054454 
054456 
054462 
054466 
0544/0 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000527 
056541 
016344 

104406 
012704 
012737 



012737 
010465 
005237 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016501 
032701 
001755 
016501 
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JSR PC>REUINO 

BCS 136$ 

MOV TSSR(R5>,R1 

MOV R0,R4 

JSR PCFATCHK 

ERRHRO ERRM0,T27RWN,PKTSSR 



130S: CKLOOP 



;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
;6ET TSSR CONTENTS 
:6ET PACKET ADDRESS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 

TRAP CSERHRO 
.WORD 342 
.WORD T27RWN 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP CSCLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



055536 
000002 

020100 



140S: 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRD 



CKLOOP 



T27BFR^6«R1 
R1.R2 ^ 
fBITI^RZ 
R1.R2 
140S 

PC.FATCHK 

ERRNO,T27BOT,EXPREC 



055640 
000010 



055642 



MOV 
MOV 



#T27PK3,R4 
f10.T27RB 



;PICK UP XSTO 

;SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

;DOES EXP » REC*D 

;BR« IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 

;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

.•LOOP IF SELECTED 

TRAP 

:SET UP PACKET ADDRESS 

;SET UP RECORDS TO SPACE OVER 



ERRORS 

^RHRD 

T27B0T 
FXPREC 

CSCLP1 



ACK.CVCsl.SPACE FORWARD COMMAND 



140010 
177776 
055666 

000001 

002116 

177772 

177756 

000000 
000200 

000000 



055640 



150$: 
152$: 



MOV 
MOV 
INC 
DEUY 



f140010,T27PK3 

R4.TSDB(R5> 

T27CNT 

1 



;ACK,CVC-1. SPACE FORWARD COMMAND 
.•ISSUE COMMAND 
;8UMP TIMER _ 
:DEUV ABOUT 100US 

MOV 
.WORD 
MOV 
.WORD 
DEC 



DEC 



MOV 
BIT 
BEQ 
MOV 



TSSR(R5>.R1 

#BIT7,R1 

152$ 

TSSR(RS).R1 



;6ET TSSR 
; CHECK FOR TSSR'S SSR SET 
;KEEP COUNTING UNTIL SET 
;GET STATUS FROM TSSR 



#1.(PC)* 

L$OLY.(PC)> 
0 

-6(PC) 
.-4 
-22<PC) 
.-20 



CZTUYAO TU80 FRONT END PRT 
TEST 3: WRITE DATA RETRY 



9841 



9833 054474 

9834 054500 

9835 054502 

9836 054504 
9840 054510 

054510 
054512 
054514 
054516 
054520 
054520 
9842 
9843 
9844 
9845 
9846 
9847 
9348 

9849 054522 

9850 054526 

9851 054532 

9852 054534 

9853 054536 
9857 054542 

054542 
054544 



054546 
054550 



9858 054552 
054552 

9859 
9860 
9861 
9862 
9863 
9864 
9865 

9866 054554 

9867 054560 

9868 054562 

9869 054566 

9870 054570 

9871 054572 

9875 054576 
054576 
054600 
054602 
054604 

9876 054606 
054606 

9877 054610 

9878 054614 
9879 

9880 
9881 
9882 
9883 



012702 000200 

020201 

001406 

004737 020100 

104456 
000530 
060307 
011700 

104406 
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mv #SSR.R2 

CNP R2.R1 

BEQ 160$ 

JSR PC.FATCHK 

ERRHRD ERRN0,T27SCF,PKTSSR 



160$: CKLOOP 



:SET UP EXPECTED 
;UAS EVERYTHING OK 
:BR, IF ALL IS WELL 

:INC AND CNECK FOR MORE THAN 25 ERRORS 
.•SPACE FORWARD DIDN'T WORK OUT 

TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 



CSERHRD 
344 

T27SCF 
PKTSSR 



C$CLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004737 010434 
004737 017234 
103407 
010001 

004737 020100 

104456 
000531 
057045 
011700 

104406 



JSR PC, REWIND 

JSR PC.CHKTSSR 

BCS 176$ 

NOV R0«R1 

JSR PC«FATCH| 

ERRHRD ERRN0«T27RWN«PKTSSR 



;CALL TAPE REWIND COMMAND 
;SEE HOW TSSR IS 
;BR« IF NO PROBLEM 

;SAVF :::•» 

.tNT AND CHEU FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCtPTED 



170S: CKLOOP 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
345 

T27RWN 
PKTSSR 



TRAP C$CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000532 
056541 
016344 

104406 
012703 
013737 



055536 
000002 

020100 



MOV 
NOV 
BIS 
CNP 

BEO 
JSR 

ERRHRD 



T27BFR^6,R1 

R1,R2 

«BIT1.R2 

R1.R2 

17$$ 

PC.FATCHK 

ERRN0.T27B0T.EXPREC 



000144 
003072 



175$: CKLOOP 
055642 177$: 



MOV 
NOV 



«100..R3 
FREE.T27WB 



;PICK UP XSTO 

:SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

;DOES EXP « REC*D 

;BR. IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
WORD 

;LOOP IF SELECTED 

TRAP 

^STARTING RECORD SIZE 
.-STARTING WRITE BUFFER ADDRESS 



CSERHRD 
346 
T27B0T 
EXPREC 

C$CLP1 



WRITE DATA.CVCs1.ACK COMMAND 



I 



C2TUYA0 TU80 FRONT END PRT 
TEST 3: WRITE DATA RETRY 



H 2 
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SEQ 231 



9884 
9885 

9886 054622 

9887 054630 

9888 034634 

9889 054642 

9890 054646 

9891 054652 

9892 054656 

9893 054662 

9894 054664 

9895 054666 
9899 

9900 
9901 

9902 054672 
054672 
054674 
054676 
054700 

9903 054702 
054702 

9904 054704 

9905 054706 
9906 

9907 
9908 
9909 
9910 
9911 
9912 

9913 054710 

9914 054714 

9915 054716 

9916 054720 

9917 054724 

9921 054730 
054730 
054732 
054734 
054736 

9922 054740 
054740 

9923 
9924 
9925 
9926 
9927 
9928 
9929 
9930 

9931 054742 

9932 054746 

9933 054752 

9934 054754 

9935 0S47S6 

9936 054762 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000533 
005011 
011700 

104406 
005303 
001342 



140005 
055640 

m% 

017120 
0000C3 
000200 



020100 



055640 
055646 



NOV #1 40005, T27PK3 

NOV #T27PIC3-R4 

NOV #20..T27SZ 

NOV ft4,TS0B(R5) 

JSR PCUAIIF 

NOV TSSR(RS),R1 

NOV #SSR,R2 

CHP R1.R2 

BEQ 180$ 

JSR PCFATCHK 



ERRSOFT ERRNO.yRTSRR.PKTSSR 



.WRITE DATA.CVCsUACK CONNANO 
;SET UP R4 WITH PACKET ADDRESS 
:SFT UP RECORD SIZE IN PACKET 
; ISSUE CONNAND 
;WAIT FOR SSR TO SET 
:6ET TSSR CONTENTS 
:SET UP EXPECTED 
:ARE THEY EQUAL 
;BR. IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
.•WRITE CONNAND IS NOT BEING CHECKED 
;HERE. IT WAS CHECKED IN CZTUXA 
;TSSR INCORRECT AFTER WRITE DATA 



180$: 



CKLOOP 
DEC 



TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 

;COUNT NUMBER OF RECORDS 
:8R. IF NORE RECORDS TO WRITE 



CSERSOFT 
347 

WRTERR 
PKTSSR 

C$CLP1 



ISSUE REWIND CONNAND TO SELECTED TAPE DRIVE 



004737 010434 

103411 

010004 

016501 000000 
004737 020100 

104456 
000534 
057045 
011700 

104406 



JSR 
BCS 
NOV 
NOV 
JSR 
ERRHRD 



182$: CKLOOP 



PC.REWIND 

18h 

R0.R4 

TSSR(R5).R1 
PC.FATCHK 

ERftN0.T27RUN.PKTSSR 



; ISSUE REWIND 
;BR. IF ALL IS WELL 
;GET PACKET ADDRESS 
;GET TSSR CONTENTS 

;INC AND CHECK FOR NOkE THAN 25 ERRORS 
.'REWIND FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

:SELECr LOOP NAYBE 

TRAP 



CSERHRD 
348 

T27RWN 
PKTSSR 



C$CLP1 



ISSUE SPACE RECORDS CONNAND - VALUE IN R3 SETS NUNBER OF RECORDS 
BIT 15 SETS DIRECTION - 0«FORWARD IsREVERSE 



012703 000001 

004737 010140 
103411 

016^ 000000 

004737 020100 



NOV 
JSR 
BCS 
NOV 
NOV 
JSR 



#1..R3 

TS§R(R5),R1 
PC.FATCHK 



;SPka 1 RECORD FORWARD 
: ISSUE SPACE CONNAND 
;BR. IF CONNAND OK 
:GET PACKET ADDRESS 
;6ET TSSR STATUS 

;INC AND CHECK FOR NORE THAN 25 ERRORS 



CZTUYAO ru80 FROMT END PRT C 
TEST 3: WRITE DATA RETRY 



9940 



9941 

9942 
9943 
9944 
9945 
9946 
9947 
9948 
9949 
9950 
9951 
9952 
9953 
9954 
995^ 
9956 
9957 
9958 
9959 
9960 
9964 



9965 

9966 
9967 
9968 
9969 
9970 
9971 
9972 
9973 
9974 
9975 
9976 
9977 
9978 
9979 
9980 
9981 
9982 
9983 
9987 
9988 
9989 
9990 



054766 
054766 
054770 
054772 
054774 
054776 
054776 
055000 
055004 



055012 
055020 
055024 
055032 
055036 
055042 
055046 
055052 
055054 
055056 
055062 
055062 
055064 
055066 
055070 
055072 
055072 
055074 



055102 
055110 
055114 
055122 
055126 
055132 
055136 
055142 
055144 
055146 



055152 
055152 
055154 



104456 
000535 
060307 
011700 

104406 
012703 
013737 



012737 
012704 
012737 
010465 
004737 
016501 
0T2702 
020102 
001406 
00A737 

104456 
000536 
057401 
011700 

104406 
013737 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000537 



N 2 
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ERRHRD ERRNO, T27SCF .PKTSSR 



SEQ 252 



000144 
003072 



055642 



185$: CKLOOP 

NOV 
NOV 



#100wR3 
FREE«T27UB 



.•SPACE FORWARD COMMAND FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP CSCLPI 
.•NUMBER OF RECORDS TO BE WRITTEN 
.•STARTING WRITE BUFFER ADDRESS 



CSSRHRD 
349 
T27SCF 
PKTSSR 



101005 
055640 
000024 
177776 
017120 
000000 
000200 



020100 



055640 
055646 



****************************************************************** 
WRITE DATA RETRY.ACK COMMAND 

****************************************************************** 

190$: 



200S: 



003072 055642 



MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 

ERRHRD 



CKLOOP 
MOV 



#101005.T27PIC5 
#T27PIC3-R4 
#20..T2?S2 
R4.TSDB(R5> 
PC.WAITF 
TSSR(R5).R1 
jrSSR.R2 
R1.R? 
206$ 

PC.FATCHK 

ERRN0.T27WDC. PKTSSR 



.•WRITE DATA RETRY.ACK COMMAND 
.-SET UP R4 WITH PACKET ADDRESS 
.-SET UP RECORD SIZE IN PACKET 
.•ISSUE COMMAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
.•SET UP EXPECTED 
:ARE THEY EQUAL 
*6R IF OK 

•INC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER WRITE DATA 



TRAP 
.WORD 
.WORD 
.WORD 

.LOOP IF SELECTED 

TRAP 

.•STARTING WRITE BUFFER ADDRESS 



FREE.T27WB 

****************************************************************** 
WRITE DATA.CVCs1.ACK COMMAND 



CSERHRO 
350 
T27WDC 
PKTSSR 

CSCLPI 



140005 
055640 
000024 
177776 
017120 
000000 
000200 



020100 



055640 
055646 



MOV #1 40005. T27PK3 

MOV #T27PK3.R4 

MOV #20..T27S2 

MOV R4.TSDB(R5) 

JSR PC.WAITF 

MOV TSSR(R5).R1 

MOV #SSR.R2 

CMP R1.R2 

BEQ 21 6$ 

JSR PC.FATCHK 



ERRSOFT ERRNO.WRTERR. PKTSSR 



.•WRITE DATA.CVC-1.ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
:SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 
.-WAIT FOR SSR TO SET 
.•GET TSSR CONTENTS 
.SET UP EXPECTED 
.-ARE THEY EQUAL 
•BR IF OK 

•INC AND CHECK FOR MORE THAN 25 ERRORS 
.•SOFT ERROR GENERATED BECAUSE THE 
.•WRITE COMMAND IS NOT BEING CHECKED 
.•HERE. IT WAS CHECKED IN CZTUXA 
:TSSR INCORRECT AFTER WRITE DATA 

TRAP CSERSOFT 
.WORD 351 



C2TUYA0 TU80 FRONT END PRT C 
TEST 3: WRITE DATA RETRY 



9991 

9992 
9993 
999A 
9995 
9996 
9997 
9998 
9999 
10000 
10001 
10002 
10003 
10004 
^0005 
10009 



10010 

10011 
10012 
10013 
10014 
10015 
10016 
10017 
10018 
10019 
10020 
10021 
10022 
10023 
10027 



10028 

10029 
10030 
10031 
10032 
10033 
10034 
10035 
10036 
10037 
10038 
10039 
10040 



055156 
055160 
055162 
055162 
055164 
055166 



005011 
011700 

104406 
005303 
001311 



055222 
055226 
055230 
055234 
055236 
055240 
055244 
055244 
0*'5?46 
055250 
055252 
055254 
055254 
055256 
055262 



055276 
0553C2 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000541 
056541 
016344 

104406 
012704 
012737 



055270 012737 



010465 
005237 



B 3 

MACRO HI 200 29-nAR-83 13:43 PAGE 105-7 



21 OS: CKLOOP 

DEC R3 
BNE 190S 



SEO 23S 



yRTERR 
PKTSSR 



.WORD 
WORD 

.•LOOP IF SELECTED 

TRAP 

;BUNP DOWN RECORD COUNTER 
;BR, IF MORE RECORDS TO WRITE RETRY 



CSCLP1 



ISSUE REWIND CONNAND TO SELECTED TAPE DRIVE 



055170 


004737 


010434 


055174 


103411 




055176 


016501 


000000 


0*55202 


010004 




055204 


004737 


020100 


055210 






055210 


104456 




055212 


000540 




055214 


057045 




055216 


011700 




055220 






055220 


104406 





JSR 
BCS 
MOV 
MOV 
JSR 

ERRHRD 



230S: CKLOOP 



PC.REWIND 
236s 

TSSR(R5),R1 

R0«R4 

PC^FATCHK 

ERRN0,T27RWN,PKTSSR 



;CALL TAPE REWIND COMMAND 
:BR« IF NO PROBLEM 
;GET TSSR CONTENTS 
:GET PACKET ADDRESS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.'REWIND NOT ACCEPTED 

TRAP CSERHRD 
.WORD 352 
.WORD T27RWN 
.WORD PKTSSR 



;LOOP IF SELECTED 



TRAP CSCLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



055536 
000002 

020100 



MOV T27BFR*6,R1 

MOV R1 ,R2 

BIS «BITUR2 

CMP R1-R2 

BEQ 246s 

JSR PCFATCHK 

ERRHRD ERRNO,T27B0T,EXPREC 



240S: CKLOOP 



055640 
000010 



055642 



MOV #T27PK3.R4 
MOV #10«T27RB 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

.DOES EXP = REC'D 

;BR, IF EQUAL (OK) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

;SET UP PACKET ADDRESS 
:SET UP RECORDS TO SPACE OVER 



CSERHRD 

353 

T27BOT 
EXPREC 

CSCLP1 



ACK,CVC«1, SPACE FORWARD COMMAND 



14C010 
177776 
055670 



055640 MOV #140010. T27PK3 

250S: MOV R4.TSDB(RS> 
252S: INC T27CNU 



:ACK,CVC-1, SPACE FORWARD COMMAND 
; ISSUE COMMAND 
;BUMP TIMER 



C2TUYA0 TU80 FRONT END PRT C 
TEST 3: yRITE DATA RETRY 



100A1 



100A2 
10043 
1004A 
100A5 
100A6 
100A7 
100A8 
100A9 
10053 



10054 

10055 
10056 
10057 
10058 
10059 
10060 
10061 
10062 
10063 
10067 



10068 
10069 



10070 
10071 
10072 
10073 
10074 
10075 
10076 
10077 
10078 
10079 
10080 
10081 



05S306 
055306 
055312 
0553U 
055320 
055322 
055326 
055330 
055334 
055336 
055342 
055346 
055350 
055354 
055360 
055362 
055364 
055370 
055370 
055372 
055374 
055376 
055400 
055400 
055402 
055406 
055412 
055414 
055416 
055422 
055424 
055426 
055432 
055434 
055434 
055436 
055440 
055442 
055444 
055444 
055446 
055446 
055446 
055450 
055456 
055460 
055464 



055464 
055470 
055472 
055476 
055476 
055476 
055500 



012727 000001 
000000 

013727 002116 
000000 

005367 177772 
001375 

005367 177756 
001367 

016501 000000 
032701 000200 
001755 

016501 000000 
012702 000200 
020201 
001406 

004737 020100 

104456 
000542 
060307 
011700 
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DELAY 1 



104406 
013701 
013702 
160102 
160102 
042702 
005702 
001407 
004737 
005001 

104456 
000*^43 
056634 
016344 

104406 



104403 
023727 
002402 
004737 



004737 
103002 
000137 



104432 
003322 



055666 
055670 



007777 
020100 



nov 

BIT 
BEy 
NOV 
NOV 
CNP 
BEO 
JSR 

ERRHRD 



260$: CKLOOP 

ffOV 
NOV 

SUB 
SUB 
6IC 
TST 
6EQ 
JSR 
CLR 

ERRHRD 



300$: 



002170 
020152 

017i54 
051076 



000031 



999$: 



163$: 



TSSR(R5)«R1 

#BIT7,R1 

252$ 

TSSR(R5),R1 
#SSR.R2 
R2.R1 
266$ 

PCFATCHK 

ERRNO,T27SCF,PKTSSR 



T27CWT,R1 

T27CNU,R2 

R1.R2 

R1.R2 

#7^77, R2 

R2 

300$ 

PCFATCHK 
R1 

ERRNO,T27TIN,EXPREC 



CKLOOP 
ENDSUB 



CNP fATFLG.#25. 

BLT 999$ 

JSR PCCKOROP 



JSR 

see 

JNP 



PC-TSTLOOP 
16S$ 



16 
T2 



7L00P 



EXIT TST 



SEQ 234 



; DELAY ABOUT lOOUS 



NOV 

.WORD 

NOV 

.WORD 

DEC 



DEC 



#1,(PC)* 

L$OLV.<PC)* 
0 

-6<PC) 
.-4 

-22<PC) 
.-20 
GET TSSR 

CHECK FOR TSSR'S SSR SET 
KEEP COUNTING UNTIL S:T 
GET STATUS FRON TSSR 
SET UP EXPECTED 
WAS EVERYTHING OK 
BR, IF ALL IS WELL 

INC AND CHECK FOR NORE THAN 25 ERRORS 

SPACE FORWARD DIDN'T WORK OUT 

TRAP C$ERHRD 
.WORD 354 
.WORD T27SCF 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP C$CLP1 

;TIPIE FOR WRITE SPACING 

;TINE FOR WRITE RETRY SPACING 

;GET"EN PRETTY CLOSE 

;GET'EN PRETTY CLOSE 

;CLEAR LOW 12 BITS 

;R2 SHOULD BE ZERO 

;BR, IF GOOD CHECK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

; READY FOR PRINTOUT 

;TINE WAS NOT DIFFERENT ENOUGH 

TRAP C$ERHRD 
.WORD 355 
.WORD T27TIN 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 
;««««««< END SUBTEST »»»»»» 
"173: 



L10073 

TRAP 

:IS ERROR COUNT AT 25 
:6R, IF LESS THAN 25 
;TRY TO DROP THE UNIT 



C$ESUB 



;D0 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
.-ExiCUTE AGAIN 

;ALL DONE THIS TEST 

TRAP C$EXiT 
.WORD L10066- 



C2TUYA0 TU80 FRONT i:NO PRT C 
TEST 3: WRITE DATA RETRY 



10083 
10084 
10085 
10087 
10089 
10090 
10091 
10092 
10093 
10094 
10095 
10096 
10097 
10098 
10099 
10100 
10101 
10102 
10104 
10106 
10107 
10108 
10109 
10110 
10111 
10113 
10115 
10116 
10117 
10118 
10119 
10120 
lOIZl 
10122 
10123 
10124 
10125 
10126 
10127 
10128 
10129 
10130 
10131 
10132 
10133 
10134 
10135 
10136 
10137 
10138 
10139 
10140 
10141 
10142 
10143 
10144 



055502 
055510 
055510 
055512 
055514 
055516 
055520 
055520 
055522 
055524 
055526 
055530 



055612 
055620 
055620 
055622 
055624 
055626 

055630 
055640 
055640 
055642 
055642 
055644 
055646 



0SS6S0 
055650 
055651 
055652 
05S6S4 



055656 
055660 
055662 
055664 



CS5666 
055670 
055672 



100004 
055520 
000000 
000012 

055530 
000000 
000024 
000000 



100006 
055650 
000000 
000006 



100005 

003072 
000000 
000000 



010 
200 
000000 
000000 



100205 
100605 
102205 
M7777 



000000 
000000 
000000 
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.LOCAL STORAGE FOR THIS TEST 



.BLKB 
T27PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 

T270ATA: 

.WORD 
.WORD 
.WORD 
.WORD 
T27BFR: .BLKW 



10-<.-TUV2Al7> 

100004 

T27DATA 

0 

10. 

T27BFR 
0 

20. 
0 

25. 



.•WRITE SUBSYSTEM MEMORY COMMAND PACKET 





.BLKB 


10-<.-TUV2A»7> 


T27PK2: 






.WORD 


100006 




.WORD 


T27BF2 




.WORD 


0 




.WORD 


6. 




.BLKB 


10-<.-TUV2A»7> 


T27PK3: 




100005 


.WORD 


T27RB: 






T27WB: 


.WORD 


FREE 




.WORD 


0 


T27SZ: 


.WORD 


0 




.EVEN 





T27BF2: 






T27BS0: 


.BYTE 


10 


T27BS1 : 


.BYTE 


200 


T27S2: 


.WORD 


0 


T27S3; 


.WORD 


0 



.EVEN 

;TAPE NOTION PACKET COMMAND VALUES 



T27RN: .WORD 
T27WDR: .WORD 
T27C0N: .WORD 
.WORD 



100205 
100605 
102205 
177777 



.•COMMAND PACKET FOR TEST 

.-WRITE CHARACTERISTICS COMMAND, WITH 

.•ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE 9F BLOCK SIZE 
.•CHARACTERISTICS DATA BLOCK 
.ADDRESS OF MESSAGE BUFFER 

.•LENGTH OF MESSAGE BUFFER 

;MESSAGE BUFFER 



.'WRITE SUB SYS MEM COMMAND* AND ACK 
.•ADDRESS OF SELECT BLOCK DATA 

;SIZE OF DATA PACKET 



ACK 



T27CNT 
T27CNU 
T27DLY 



.WORD 0 
.WORD 0 
.WORD 0 



.•REREAD COMMAND, AND ACK 
.•ADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER (EXTENT) 



.BSELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 
;DATA AREA 



.•REREAD DATA (NEXT) 
.•REREAD DATA RETRY 
.WRITE CONTINOUS 
.END OF DATA 



.-TAPE TIMER COUNTER STORAGE AREA 
.•TAPE TIMER COUNTER STORAGE AREA 
.-DELAY COUNTER 



C2TUYA0 TU80 FRONT END PRT 
TEST 3: WRITE DATA RETRY 



10U6 
10U7 
10U8 
10149 
10150 
10151 
10152 
10153 
10154 
10155 
10156 
10157 
10158 
10159 
10160 
10161 
10162 
10163 
10164 
10165 
10166 
10167 
10168 
10169 
10170 
10171 



10172 
10173 
10174 
10175 
1017: 
10177 
10178 
10179 
10180 
10181 
10182 
10183 
10184 
10185 
10186 
10187 
10188 
10189 
10190 
10191 
10192 
10193 
10194 
10195 
10196 
10197 
10198 
10199 
10200 
10201 
10202 



055674 
055762 
056031 
056126 
056210 
056260 
056335 
056416 
036452 
056541 
056634 
056711 
056770 
057045 
057114 
057167 
057236 
057311 
057401 
057454 
057527 
057602 
057671 
057753 
060035 
060123 
060211 
060307 
060364 
060446 
060526 
060623 



060644 
060644 
060650 
060654 
060660 
060664 
060666 
060672 
060676 
060700 
060704 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
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.•LOCAL TEXT MESSAGES FOR TEST 



SEQ 236 



1 OA 


1 A1 


1 


T07Uftll^« 




1 OA 


1 01 


1 01 

\c^ 


T27R0F : 


.ASCIZ 


1 00 

Ice 


1 AC 


100 

\CC 


T07DDP • 
1 C r nifr • 


Acri 7 


1 OA 
lev 


117 
1 1 f 


101 
1 Cj 


T27SC: 


• AdVl A 


1 00 
ICC 


111 
1 1 1 


inp 


1 C f LUfV • 


Asri 7 


1 OA 
ICH 


1 OX 
ic^ 


101 

XCJ 


T07LinP • 
1 C r Wl/r • 

t07i no* 




111 
1 1 1 


1 CA 


ISA 


Asri 7 


122 


lUO 


100 
Icc 


T07CCO* 


ACrf 7 
•Mdvi A 


1 OA 
\CH 


1 0"^ 


1 01 

\CJ 


T07unc • 
T07Anr • 

IcrOUl • 


Acn 7 


1 OA 
icH 


1 A1 


1 AH 


Asn 7 

•Adt iA 


107 

icf 


100 
Icc 


111 
1 1 1 


%Cf 1 in* 


• Ad^i A 


1 00 

tec 


IOC 


100 
\cc 




• Adv J A 


1 OA 


1 01 
1 Cj 


101 

ICJ 


\cf I n» 


Acn 7 


1 00 
ICC 


IAS 


1A7 
lOr 


TP7DUM* 
1 c r rfwri* 


ASrf 7 


1 00 
Icc 


ini 


IIS 

1 1 0 


1 C r nnil, • 
1 c r ^rJ • 


ASrf 7 


10A 

1 CH 


1 CJ 


1?^ 

1 Cj 


IHA 


iA? 


1S1 

1 O 1 


TP7nfi • 

T97unn • 
tCfwyy m 


• AdVi A 


1 OA 


101 
1 cO 


1P^ 

1 Cj 


Asrf 7 




1 CD 


1 Cj 


T27WDC: 


.ASCIZ 


103 


126 


103 


T27VCIC: 


.ASCIZ 


124 
127 


123 


102 


T278A: 


.ASCIZ 


122 


111 


)27WSS: 


.ASCIZ 


122 


145 


141 


T27L0N: 


.ASCIZ 


122 


145 


141 


T27L0P: 


.ASCIZ 


122 


145 


163 


T27P8P: 


.ASCIZ 


122 


145 


141 


T27TRL: 


.ASCIZ 


127 


m 


111 


T27NEF: 


.ASCIZ 


124 


123 


123 


T27SCF: 


.ASCIZ 


124 


123 


123 


T27TSA: 


.ASCIZ 


124 


123 


123 


T27WRFI 


.ASCIZ 


104 


141 


164 


T2'DTA: 


.ASCIZ 


127 


162 


151 


TST27ID: 










.EVEN 



055510 
100004 
055520 

000012 
055530 

000024 



'Tape Position Incorrect After RE.4EAD Previous (0PM1)' 

*TSSR Incorrect After READ DATA CoMiand' 

'REREAD Previous (Space Reverse, Read Forward) CoMaand Failed' 

'POSITION (Space CoMMand) Failed, TSSR Not Correct' 

'RIB NOT SET AFTER READ REVERSE INTO BOT' 

'TSSR Not Correct After Illegal Node Bits Set' 

'Illegal Mode Bits, Failed To Set ILC Bit In XSTO' 

'REREXD command Not Accepted' 

'TSSR Not Correct After WRITE DATA RETRY CoMiiand,At BOT' 

'Tape Not At BOT After REWIND CoMsand (BOT Not Set In XSTO)* 

'WRITE DATA RETRV'S Erase Tape Not Lona Enouah' 

'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

*^SSR Not Correct After REREAD COMMAND Reject' 

'Rewind (POSITION) Connand Not Accepted' 

'RAM Error, Correct Data Pattern Not In Ram' 

'TSSR Init. Failed After REREAD COMMAND' 

•Drive 7 Select Failed To Set "Oft" In TSSR' 

'TSSR Not Correct After REREAD DATA CoMMnd. SWB Bit Set' 

'TSSR Not Correct After REREAD DATA CoMMand' 

'CVC Set, D1dn"t Reset VCK In Message Buffer* 

*TSBA Not Correct After REREAD DATA CoMMnd* 

'WRITE SUBSYSTEM MEMORY CoMMnd Not Accepted (RAM Read)' 

'Reading Long Record Failed To Set RLL Bit In XSTO' 

'Reading Long Record Failed To Set RLS Sit In XSTO' 

'Residual Byte Cotmt Incorrect After Short Record Read' 

'Reading Long Record Failed To Give Tape Status Alert* 

'WRITE DATA RETRY, At First Record, Failed To Set RIB Bit XST3' 

'TSSR Not Correct After SPACE RECORDS CoRwand' 

'TSSR Not Correct Afttr WRITE DATA RETRY, Into BOT* 

'TSSR Not Correct After WRITE DATA RETRY COMMnd* 

'Data CoMare Error, Data Read Froii Tape Not Eq'ial To Written' 

.ASCIZ ^rite Data Retry' 



;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;NRITE SUBSYSTEM MEMORY COMMAND 



T27REST: 



SAVRE6 

MOV #T27PACKET.R1 

MOV #100004, (Rl)« 

MOV #T270ATA,(R1)« 

CLR (R1)« 

MOV f10.,(R1)« 

MOV #T276fR,(R1)4 

CLR (R1)« 

MOV #20.,(R1)« 

CLR (RD* 



.•SAVE THE REGISTERS 

; START OF THE PACKET 

;WRITE SUBSYSTEM MEM. WITH A>*X, 

.•ADDRESS OF CHARAISTICS DATA BLOCK 

; EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

.•ADDRESS OF MESSAGE BUFFER 

: LENGTH OF MESSAGE BUFFER 



CZTUYAO ru80 FRONT END PRT C 
TEST 3: URITE DATA RETRY 
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10203 
10204 
10205 
10206 
10207 
10208 
10209 
10210 
10211 
10212 
10213 
10214 
10215 
10216 
10217 
10218 
10219 
10220 
10221 
10222 
10223 
10224 
10225 
10226 
10227 
10228 
10229 
10230 
10231 
10232 



060706 
060712 
060716 
060724 
060726 
060732 
060734 



060736 
060736 
060742 
060746 
060752 
060756 
060760 
060764 
060766 
060772 
060774 
060776 
061000 
061000 
061004 
061010 
061012 
061014 
061016 
061020 
061022 

061022 



012711 000000 
012702 00QQ30 
012762 177777 
005742 

022702 000000 

001371 

000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



055530 64$: 



MOV 
MOV 
MOV 
TST 
CMP 
BNE 
RTS 



T27RT2: 



055620 
100006 
055650 

000006 

05S6S0 



055640 



T27RT3: 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

CLR 

RTS 

SAVREG 

MOV 

CLR 

CLR 

CLR 

CLR 

RTS 

ENDTST 



#0,(R1) 
«24..R2 

#1 77^77. T27BFR(R2) 

-(R') 

#0.n2 

64i 

PC 



#T27PK2.R1 

#100006, (R1)« 

#T27BF2.(R1)* 

(RD* 

06, AM)* 

(R1)f 

#T27BF2,R1 
(R1)^ 
(R1) 
PC 



#T27PK3,R1 

(R1)« 

(RD* 

(R1)t 

(R1) 

PC 



SEO 237 



;SELECT DRIVE ZERO 

:NUMBER OF LOCATIONS TO BE CLEARED 

;ALL ONES TO MESSAGE BUFFER 

.NEXT LOCATION 

;AT END OF LOOP >ET 

.-KEEP GOING UNTIL DONE 

;RETURN 



.•SAVE THE REGISTERS 

.•START OF THE PACKET 

;UR1TE SUBSYSTEM MEM. WITH ACK. 

.•ADDRESS OF DATA BLOCK 

.•EXTENDED ADDRESS 

.•SIZE OF DATA BLOCK IN BYTES 

; POINT TO DATA SEL AREA 



.•RETURN 

.SAVE REGISTERS 

.SET UP POINTER ADDRESS 

.•COMMAND SPACE 

.•ADDRESS OF DATA BLOCK 

.•EXTENDED ADDRESS 

;SIZE OF DATA TRANSFER BLOCK 

; RE TURN 



L10066: 



TRAP CSETST 



C2TUYA0 ru80 FRONT END PRT C 
TEST 4: WRITE/READ TAPE HARK 

10234 
10235 
10236 
10237 
10238 
10239 
10240 
10241 
10242 
10243 
10244 
10245 
10246 
10247 
10248 
10249 
10250 
10251 

10252 
10253 
10254 
10255 
10256 
10261 
10262 
10263 
10264 
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.SBTTL TEST 4: WRITE/READ TAPE MARK 

♦ 

THIS TEST VERIFIES THAT THE WRITE TAPE NARK COMMAND OPERATES 
PROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
BY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE 
TAPE MARK. IN ADDITION, SINCE WRITE TAPE MARK IS THE FIRST 
SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED 
THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT 
FORMAT COMMANDS WITH ILLEGAL NODE CODES ARE REJECTED. 

THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 



SEQ 238 



061024 








B6NTST 


061024 








CLR 


061024 


005037 


002170 




061030 


005037 


003100 


002146 


CLR 


061034 


012737 


005764 


NOV 


061042 


005037 


003102 




CLR 


061046 


004737 


020244 




JSR 


061052 


012700 


065241 




NOV 


061056 


004737 


017406 




JSR 


06l8^$ 


012737 


000001 


002164 


T28L00P: 



FATFL6 
KTFLG 

#EPRT2,EPRTSU 

KTENABLE 

PC.KTOFF 

»TST28ID,R0 

PC.TSTSETUP 

#1 AOOPCNT 



T4* * 

; CLEAR FATAL ERROR* FLAG 

;H0LD OFF KT11 

.•SECONDARY ERROR MESSAGE 
;TURN KT11 OFF 

;TURN KT11 BACK OFF IF THERE 
;ASCII NESSA6E TO IDENTIFY TEST 
:D0 INITIAL TEST SETUP 
;PERFORN 1 ITERATIONS 



CZTUYAO TU80 FRONT END PRT C 
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10266 
10267 
10268 
10269 
10270 
10271 
10272 
10273 
1027A 
10275 
10276 
10277 
10278 
10279 
10280 
10281 
10282 
10283 
10284 
10285 
10286 
10287 
10288 
10289 
10290 
10291 
10292 
10293 
10294 
10295 
10296 
10297 
10298 
10299 
10300 
10301 
10302 
10303 
10304 
10305 
10306 
10307 
10308 
10309 
10310 
10311 
10312 
10313 
10314 
10315 
10316 
10317 
10318 
10319 
10320 
10321 
10322 
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TEST 4, SUBTEST 1 

VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE 
PROPERLY. AND THAT READ COMMANDS SUBSEQUENTLY ISSUED 
TO DETECf THE WRITTEN TAPE MARKS TERMINATE WITH TAPE 
STATUS ALERT WITH THE TAPE MARK DETECTED (TMK) STATUS 
BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE CONTROLLER IS INITIALIZED AND TAPE REWOUND. 
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT. 

2. A WRITE TAPE MARK COMMAND WITH CVC^I IS ISSUED 
AND PROPER TERMINATION AND STATUS IS VERIFIED 
(I.E. VCK«0 AND THK*1). 

3. SEVERAL MORE WRITE TAPE NARK COMMANDS. THESE WITH 
CVC«0 ARE ISSUED AND PROPER TERMINATION (NORMAL) 
AND STATUS (TMK) VERIFIED. 

4. A READ REVERSE COMMAND IS ISSUED AND PROPER 
TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK) 
VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS 
TRANSFERRED INTO MEMORY. 

5. A SPACE RECORDS REVERSE COMMAND IS ISSUED AND 
PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS 
(TMK) VERIFIED. 

6. THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS 
ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT) 
AND STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED 
THAT NO DATA IS TRANSFERRED INTO MEMORY. 

7. A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION 
OCCURED. TMKsl AND THAT RBPCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 
THE TAPE HARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVL 
THE POSITION JUST BEFORE THE FIRST RECORD ON 
TAPE. 

8. TAPE POSITION IS VERIFIED BY ISSUIN<; ANOTHER 
SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT 
TAPE STATUS ALERT TERMINATION OCCURS. WITH THE 
REVERSE INTO BOT (RIB) STATUS ERROR BIT SET. 

9. A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION 
OCCURED, TMK-1. AND THAT RBPCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 



SEO 239 



C2TUYA0 TU80 FRONT END PRT C 
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10323 
10324 
10325 
10326 
10327 
10328 
10329 
10330 
10331 
10332 
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SEQ 2401 



10333 
10334 
10335 
10336 
10337 
10338 
10339 



10340 
10341 
10342 
10346 
10347 



10348 
10349 
10350 
10351 
10352 
10356 
10357 



10358 

10359 
10360 
10361 
10362 
10363 
10367 



061070 
061070 
061070 
061072 
061076 
061102 
061106 
061114 
061120 
061122 
061122 
061126 
061130 
061134 
061136 
061142 
061144 
061150 
061152 
061156 
061160 
061164 
061166 
061166 
061170 
061172 
061174 
061176 
061176 
061202 
061206 
061210 
061214 
061216 
061216 
061220 
061222 
061224 
061226 
061226 
061230 
061234 
061236 
061242 
061244 
061250 
061250 
061252 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 

mi 
m 

010001 

104455 
000621 
003550 
011666 

012704 
004737 
1034Q7 
004737 
010001 

104456 
000622 
004754 
011666 

104406 
004737 
103411 
016501 
010004 
004737 

104456 
000623 



065266 
065360 
065422 
23420 
16644 



9 
0 



000250 
002116 
177772 
177756 
063372 
020100 



063200 
010332 

020100 



010434 
000000 
020100 



THE TAPE NARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PRENATURELV TERHINATED. 



063372 



10$: 



BGNSUB 



JSR 
JSR 
JSR 
NOV 
JSR 
BCS 
DELAY 



20$: 



23$: 



DEC 
6NE 
JSR 
NOV 
ERRDF 



NOV 
JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 

JSR 
BCS 
NOV 
NOV 
JSR 

ERRHRD 



PC,T28REST 

«l6000.»T28DLV 

PC.SOFINIT 

20i 

250 



T28DLY 
10$ 

PCFATCHK 
RO.RI 

ERRND,SFIERR,SFINS6 



fT28PACKET.R4 
.URTCHR 



PC.FATCHK 
RO.RI 

ERihlO.lfRTNSG.SFINSG 



PC.REWIND 
30i 

TSSR(RS),R1 

R0*R4 

PC.FATCHK 

ERRN0,T28RUN,PKTSSR 



;»»»»»» BEGIN SUBTEST »»»»»» 
T4.1: 

TRAP C$BSUB 

;SET CONNAND PACKET 

;SET UP OTHER CONNAND PACKET 

:SET UP OTHER CONNAND PACKET 

;SET UP DEUY ROUTINE 

;D0 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

.•DELAY ABOUT .25 SECONDS 

NOV f250.(PC)« 
.WORD 0 

NOV L$DLY,(PC)» 
.WORD 0 
DEC -6(PC> 
BNE .-4 
DEC -22(PC) 
BNE .-20 

;BUNP DELAY ROUTINE DOWN 

:BR. IF NORE DEUY TINE LEFT ^ 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

; CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 401 
.WORD SFIERR 
.WORD SFINSG 

.•SUBROUTINE NEEDS PACKET ADDRESS 
.•ISSUE WRITE CHARACTERISTICS 
:BR. IF CONNAND ISSUED OK 
:lHt AND CHECK FOR NORE THAN 25 ERRORS 
.-SAVE CONTENTS OF TSSR 
.•WRITE CNARACTERISTISC FAILED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
402 

WRTNSG 
SFINSG 



;L00P IF SELECTED ^ ^ 

TRAP C$CLP1 
;CALL TAPE REWIND CONNAND 
;BR. IF NO PROBLEN 
;6ET TSSR 

:SAVE PACKET ADDRESS 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.•REWIND NOT ACCEPTED 

TRAP C$ERHRD 

.WORD 403 
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10368 



10369 
10370 
10371 
10372 
10373 
10374 
10378 



061254 
061256 
061260 
061260 
061262 
061266 
061270 
061274 
061276 



10379 

1j380 
10381 
10382 
10383 
10387 
10388 



10389 



10390 
10391 
10392 
10393 
10394 
10395 
10396 
10397 
10398 
10402 



10403 

10404 
10405 
10406 
10407 
10408 
10409 
10413 



10414 



0611 
061304 
061304 
061306 
061310 
061312 
061314 
061314 
061316 
061322 
061326 
061330 
061334 
061336 
061336 

^\!!& 

061346 
061350 
061356 
061362 
061366 
061372 
061376 
061402 
061404 
061406 
061412 
061412 
061414 
061416 
061420 
061422 
061422 
061424 
061430 
061432 
061436 
061440 
061442 
061446 
061446 
061450 
061452 
061454 
061456 



064321 
011700 

104406 

013701 063226 
010102 

052702 000002 

020102 

001406 

004737 020100 

104456 
000624 
064177 
016344 



30$: CKLOOP 

NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 



104406 
012704 
004737 
103407 
004737 
010001 

104456 
000625 
004754 
011666 

104406 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000626 
064443 
011700 

104406 
013701 
010102 
042702 
020102 
001406 
004737 

104456 
000627 
064522 
016344 



40$: 



063200 
010332 

020100 



68$: 



140011 
0 633 30 
177776 
017120 
000000 
000200 

020100 



063330 



70$: 



063226 
000020 

020100 



T28BFR«6,R1 
RlcR2 
l>BiT1.R2 
R1.R2 
40i 

PC.FATCHK 



ERRHRD ERi)N0,T28B0T,EXPREC 



CKLOOP 

NOV 
JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 

NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 
ERRHRD 



CKLOOP 

NOV 
NOV 

BIC 
CNP 
BEQ 
JSR 
ERRHRD 



80$: CKLOOP 



fT28PACKET»R4 

PC.URTCHR 

68i 

PCFATCHK 
R0.R1 

ERRN0,WRTNS6,SFINS6 



#140011,T28PK3 

#T28PK3,R4 

R4,TSDB(R5> 

PC.WAITF ^ 

TSSR(R5).R1 

#SSR.R2 

PC.FATCHK 

ERftN0,T28llDC,PKTSSR 



T28BFR^6,R1 
R1.R2 , 
#b!T4«R2 
R1.R2 
80i 

PC.FATCHK 

ERiiN0,T28VCKJXPREC 



;LOOP IF SELECTED 



.WORD 
.WORD 

TRAP 



T28RUN 
PKTSSR 

C$CLP1 



;PICK UP XSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;DOES EXP > REC*D 
;BR^ IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REUIND 

TRAP C$ERHRD 
.WORD 404 
.WORD T28BOT 
.yORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 
.•SUBROUTINE NEEDS PACKET ADDRESS 
:ISSUE WRITE CHARACTERISTICS 
;BR. IF CONNANP ISSUED OK 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
;SAVE CONTENTS OF TSSR 
jyRITE CHARACTERISTISC FAILED 



;LOOP IF SELECTED 



TRAP 
.yORD 
.WORD 
.WORD 



C$ERHRD 
405 

WRTNS6 
SFINS6 



TRAP C$CLP1 



.-WRITE TAPE HARK,ACK.CVC-1 CONNAND 
:SET UP R4 WITH PACKET ADDRESS 
; ISSUE CONNAND 
;WAIT «0R SSR TO SET 
:6ET TSSR CONTENTS 
:SET UP EXPECTED 
;ARE THEY EQUAL 
*BR IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:TSSR INCORRECT AFTER WRITE TAPE NARK 

TRAP CSERHRO 
.WORD 406 
.WORD T28WDC 
.WORD PKTSSR 

;LOOP IF SELECTED ^ ^ 

TRAP C$CLP1 

.-PICK UP XSTO (VCK CHECK) 

;SET UP EXPECTED 

;VCK SHOULD BE 0 

:IS VCK SET CORRECTLY 

;BR, IF VCK IS CLEAR 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:VCK WAS NOT CLEAR AFTER CVC^I 

TRAP C$ERHRD 
.WORD 407 
.WORD T28VCK 
.WORD EXPRtC 

:LOOP IF SELECTED 
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mis 

10416 
10417 
10418 
10419 
10420 
10424 



10425 

10426 
10427 
10428 
10429 
10430 
10434 



10435 

10436 
10437 
10438 
10439 
10440 
10441 
10445 



10446 



10447 
10448 
10449 
10450 
10451 
10452 
10453 
10454 
10455 
10456 
10460 



10461 
10462 



061456 
061460 
061464 
061466 
061472 
061474 
061476 
061502 
061502 
061504 
061506 
061510 
061512 
061512 
061514 
061520 
061522 
061524 
061530 
061534 
061534 
061536 
061540 
061542 
061544 
061544 
061546 
061552 
061554 
061560 
061562 
061564 
061570 
061570 
061572 
061574 
061576 
061600 
061600 
061602 
061606 
061614 
061620 
061624 
061630 
061634 
061640 
061642 
061644 
061650 
061650 
061652 
061654 
061656 
061660 
061660 
061662 



063226 
100000 



104406 
013701 
010102 
052702 
020102 
001406 

004737 020100 
104456 



010434 



000000 
020100 



064572 
016344 

104406 
004737 
103411 
010004 
016501 
004737 

104456 
000631 
064321 
011700 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000632 
064177 
016344 

104406 
012703 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000633 
064443 
011700 

104406 
U13701 



063226 
000002 

020100 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRO 



90$: CKLOOP 

JSR 
BCS 
MOV 
MOV 
JSR 

ERRHRD 



130S: CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRO 





140S: 


CKLOOP 


000012 


150$: 


MOV 


140011 063330 




MOV 


063330 




MOV 


177776 


155$: 


MOV 


017120 




JSR 


000000 




MOV 


000200 




MOV 






CMP 






BEQ 


020100 




JSR 






ERRNRD 




165$: 


CKLOOP 


063226 




MOV 



T28BFR*6,R1 

R1,R2 

#BIT15«R2 

R1.R2 

90i 

PC.FATCHK 

ERRN0,T28TMK,EXPREC 



PC.REWIND 

136$ 

R0,R4 

TSSR(R5),R1 
PCFATCHK 

ERRN0.T28RUN,PKTSSR 



T28BFR^6,R1 
R1.R2 ^ 
feiT1«R2 
R1.R2 
146$ 

PC«FATCHK 

ERRN0.T28B0T«EXPREC 



#1406l1,T28PK3 

fT28PK3.R4 

R4«TSDB(R5) 

PC.yAITF 

TSSR(R5),R1 

#SSR.R2 

R1-R2 

16$$ 

PC,FATCHK 

ERftN0,T28UDC,PKTSSR 



T286FR^6,R1 



TRAP C$CLP1 
.-PICK UP XSTO (CHECK TMK) 
;SET UP EXPECTED 
;TMK SHOULD BE SET 
;WAS 7MK jET 
*BR IF TP1K WAS SET 

]lHt AND CHECK FOR MORE THAN 25 ERRORS 
;TMK WAS NOT SET AFTER WRT TAPE MARK 

TRAP C$£RHRD 
.WORD 408 
.WORD T28TMK 
.WORD EXPREC 

:LOOP IF SELECTED 

TRAP C$CLP1 
:CALL TAPE REWIND COMMAND 
;BR« IF NO PROBLEM 
;SAVE PACKET ADDRESS 
;GET TSSR STATUS 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
409 

T28RWN 
PKTSSR 



TRAP C$CLP1 



.-PICK UP XSTO 
;SET UP EXPECTED 
:SET BOT BIT IN EXPECTED 
:DOES EXP s REC'D 
:BR* IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

:TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 410 
.WORD T28B0T 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 
.-NUMBER OF RECORDS TO WRITE TM 
.'WRITE TAPE MARK.ACK.CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
.•ISSUE COMMAND 
;WAIT FOR SSR TO SET 
;PICK UP TSSR 

;SET UP EXPECTED (SSR ONLY) 
;WAS STATUS GOOD 
;BR, IF TERMINATION WAS GOOD 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR NOT CORRECT AFTER WRT TAPE M. 



;LOOP IF SELECTED 
.-PICK UP XSTO 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
411 

T28WDC 
PKTSSR 



TRAP C$CLP1 
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SEQ 2t*i 



10463 
10464 
10465 
10466 
10467 
10471 



10472 

10473 
10474 
10475 
10476 
10477 
10478 
10479 
10480 
10481 
10482 
10483 
10484 
10485 
10486 
10487 
10491 



10492 

10493 
10494 
10495 
10496 
10497 
10498 
10502 



10503 

10504 
10505 
10506 
10507 
10508 
10512 



061666 
061670 
061674 
061676 
061700 
061704 
061704 
061706 
061710 
061712 
061714 
061714 
061716 
061720 
061722 
061726 
061732 
061740 
061746 
061752 
061760 
061764 
061770 
061774 
062000 
062002 
062004 
062010 
062010 
062012 
062014 
062016 
062020 
062020 
062022 
062026 
062030 
062034 
062036 
062040 
062044 
062044 
062046 
062050 
062052 
062054 
062054 
062056 
062062 
062066 
062070 
062072 
062076 
062076 
062100 
062102 
062104 



010102 
052702 
020102 
001406 
004737 

104456 
000634 
064575 
016344 

104406 
005303 
001337 
012700 
004737 
013737 
012737 
012704 
013737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000635 
063534 
011700 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000636 
064647 
016344 

104406 
017701 
012702 
020102 

104456 
000637 
065062 
016344 



100000 
020100 



177777 
020372 
003072 
140401 
063330 
000024 
177776 
017120 
000000 
100204 



020100 



063226 
100000 

020100 



121010 

mm 



020100 



MOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRD 



180$: CKLOOP 



DEC 



063332 
063330 

063336 



NOV 
JSR 
MOV 
NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



200$: CKLOOP 



NOV 
NOV 
BIS 
CMP 
BEO 
JSR 
ERRHRD 



210$: CKLOOP 

NOV 
NOV 
CMP 
BEQ 

JSR 

ERRHRD 



RnR2 
#BIT15,R2 
R1.R2 
186S 

PC.FATCHK 

ERRN0,T28TNK,EXPREC 



R3 

155S 

#177777,R0 

PCFILLHEM 

FREEJ28UB 

#140iOM28PK3 

#T28PK3«R4 

20.,T28SZ 

R4,TSDB(R5) 

PC.WAITF 

TSSR(R5).R1 

fSSR!SC!BIT2.R2 

R1.R2 

206$ 

PC.FATCMK 

ERRN0,T28RDF,PKTSSR 



T28BFR46,R1 
R1,R2 ^ 
«6IT15,R2 
R1-R2 
21 6$ 

PC.FATCHK 

ERRN0.T28RRN.EXPREC 



aFREE.R1 
f1777?7,R2 
R1-R2 
226$ 

PC.FATCHK 

ERRNO,T28DTR.EXPREC 



;SET UP EXPECTED 
;SET TMK BIT IN EXPECTED 
:DOES EXP ' REC'D 
;BR. IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TMK NOT SET AFTER URT TAPE MARK 



.LOOP IF SELECTED 



TRAP 
.WORD 
.UORD 
.yORD 



CSERHRD 
412 
T28TMK 
EXPREC 



TRAP CSCLPI 



;BUMP COUNTER DOWN 
;BR. IF LESS THAN 10 TAPE MARKS 
.•VALUE TO WRITTEN TO MEMORY 
.-FILL MEM WITH ALL ONES 
.•STARTING READ BUFFER ADDRESS 
.•READ REVERSE. ACK. COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
.•ISSUE COMMAND 
.•WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
.-SET UP EXPECTED 
;ARE THEY EQUAL 
*BR IF OK 

;1n£ and CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER WRITE DATA 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CtERHRD 
413 
T28RDF 
PKTSSR 



TRAP CSCLPI 



;PICK UP XSTO 
.SET UP EXPECTED 
;TNK SHOULD BE SET 
;IS TMK SET 

;BR. IF TMK WAS SET (GOOD) 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
;THK NOT SET AFTER READ 



REV 
TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
414 

T28RRN 
EXPREC 



.-LOOP IF SELECTED ^ ^ 

TRAP CSCLPI 

.•FIRST LOC IN READ BUFFER 

:EXPECTED IF NO DATA TRANS. 

;DID ANY DATA GET TRANSFERRED 

:BR. IF NO DATA TRANS (GOOD) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;DATA TRANSFERRED ON READ TAPE MARK 

TRAP CSERHRD 

.WORD 415 

.WORD T28DTR 

.WORD EXPREC 



CZTUYAO TU80 FRONT END PRT C 
TEST 4: URITE/READ TAPE NARK 



n 3 
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10513 

105U 
10515 
10S26 
10517 
10518 
10519 
10520 
10521 
10522 
10523 
10527 



10528 

10529 
10530 
10531 
10532 
10533 
10534 
10538 



10539 

10540 
10541 
10542 
10:i3 
10544 
10548 



10549 

10550 
10551 
10552 
10553 
10554 
10555 
10559 



10560 



062106 
062106 
062110 
062116 
062124 
062130 
062134 
062140 
062144 
062150 
062152 
062154 
062160 
062160 
062162 
062164 
062166 
062170 
062170 
062172 
062176 
062200 

m 

062210 
062214 
062214 
062216 
062220 
062222 
062224 
062224 
062226 
062232 
062234 
062236 
062242 
062246 
062246 
062250 
062252 
062254 
062256 
062256 
062260 
062264 
062266 
062272 
062274 

062302 
062304 




104406 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000640 
063615 
011700 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000641 
064725 
016344 

104406 
004737 
103411 
010004 
016501 
004737 

104456 
000642 
064321 
011700 

104406 
013701 
010102 
052702 
020102 

104456 
000643 
064177 
016344 

104406 



100410 
000001 
063330 
177776 
01712C 
000000 
100204 



020100 



063226 
100000 

020100 



010434 



000000 
020100 



063226 
000002 

020100 



220$: CKLOOP 

063330 NOV 
063332 NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
6E0 
JSR 

ERRHRD 



222$: CKLOOP 

NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



226$: CKLOOP 

JSR 
BCS 
NOV 
NOV 

JSR 

ERRHRD 



230$: CKLOOP 

NOV 

NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



240$: CKLOOP 



#100410,T28PK3 

#1.T28RB 

#T28PIC7,R4 

R4,TSDB(R5) 

PCWAITF 

TSSR(R5>.R1 

#SSR!SC'BIT2,R2 

R1-R2 

22^S 

PC.FATCHK 

ERRN0,T28RDG,PKTSSR 



T28BFR*6«R1 

R1,R2 

#BIT15,R2 

R1,R2 

22^$ 

PC.FATCHK 

ERRN0,T28RRN,EXPREC 



PC.REUIND 

236$ 

R0,R4 

TSSR(R5),R1 
PCFATCHK 

ERRN0,T28RUN,PKTSSR 



T28BFR«6,R1 

R1,R2 

«BIT1,R2 

R1-R2 

246$ 

PC.FATCHK 

ERRNO.T28BOT.EXPREC 



;LOOP IF SELECTED 

TRAP C$CLP1 
.-SPACE RE VERSE. ACK, COHNAND 
;NUNBER OF RECORDS TO SPACE BACK 
:SET UP R4 WITH PACKET ADDRESS 
.-ISSUE CONNAND 
.-WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
.ARE THEY EQUAL 
'8R IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER SPACE CNO. 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.yORD 



CSERHRD 
416 
T28RDG 
PKTSSR 



TRAP CSCLPI 



.-PICK UP XSTO 
.-SET UP EXPECTED 
;TNK SHOULD BE SET 
'IS TMC SET 

•BR. IF TNK WAS SET (GOOD) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;TNK NOT SET AFTER SPACE REV 

TRAP CSERHRD 
.WORD 417 
.WORD T28RRN 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP CSCLPI 
:CALL TAPE REWIND CONNAND 
:BR. IF NO PROBLEN 
.-SAVE PACKET ADDRESS 
;6ET TSSR 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
418 
T28RWN 
PKTSSR 



TRAP C$CLP1 



;PICK UP XSTO 
;SET UP EXPECTED 
.-SET BOT BIT IN EXPECTED 
:DOES EXP - REC'D 
:BR. IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.-TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 419 
.WORD T28BOT 
.WORD EXPREC 

.•LOOP IF SELECTED 

TRAP CSCLPI 



CZTUYAO TU80 FRONT END PRT C 
TEST A: WRITE/READ TAPE NARK 



N 3 
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10561 
10562 
10563 
10564 
10565 
10566 
10567 
10568 
10569 
10570 
10571 
10572 
10573 
10577 



10578 

10579 
10580 
10581 
10582 
10583 
10584 
10588 



10589 

10590 
10591 
10592 
10593 
10594 
10598 



10599 

10600 
10601 
10602 
10603 
10604 
10605 
10606 
10607 
10608 
10609 
10613 



062314 
062320 
062324 
062332 
062340 
062344 
062352 
062356 
062362 
062366 
062372 
062374 
062376 
062402 
062402 
062404 
062406 
062410 
062412 
062412 
062414 
062420 
062422 
062426 
062430 
062432 
062436 
062436 
062440 
062442 
062444 
062446 
062446 
062450 
062454 
062460 
062462 
062464 
062470 
062470 
062472 
062474 
062476 
062500 
062500 
062502 
062510 
062516 
062522 
062526 
062532 
062536 
062542 
062544 
062546 
062552 
062552 



012700 
004737 
013737 
012737 
012704 
013737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000644 
064106 
011700 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000645 
065004 
016344 

104406 
017701 
012702 
020102 
001406 
004737 

104456 
000646 
065062 
016344 

104406 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 



020372 
003072 
100001 
063330 
000024 
177776 
017120 
000000 
100204 



020100 



063226 
100000 

020100 



120416 
177777 



020100 



100410 
000005 
063330 
177776 
017120 
000000 
100204 



020100 



nov 

JSR 

063332 NOV 
063330 NOV 
NOV 

063336 NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



245$: CKLOOP 

NOV 
NOV 

BIS 
CNP 
BEQ 

JSR 

ERRHRD 



247$: CKLOOP 

NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



250$: CKLOOP 

063330 NOV 
063332 NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CMP 
BEQ 
JSR 

ERRHRD 



#1 77777, RO 

PCFILLHEH 

FREE.T28R8 

#1 00601, T28PK3 

#T28PK3,R4 

20.,T28SZ 

R4,TSDB(RS) 

PCWAITF 

TSSR(R5>,R1 

#SSR!SC!BIT2,R2 

R1,R2 

24$$ 

PCFATCHK 

ERRN0,T28UDE,PKTSSR 



T28BFR«6«R1 

R1«R2 

#BIT15,R2 

R1-R2 

24H 

PCFATCHK 

ERRN0«T28RRP,EXPREC 



aFREE.Rl 
#1777f7,R2 
R1.R2 
256$ 

PCFATCHK 

ERRN0,T28DTR,EXPREC 



#100410,T28PK3 

#5.T28RB 

#T28PK3,R4 

R4,TSDB(R5) 

PCWAITF 

TSSR(R5),R1 

#SSR!SC!BIT2,R2 

R1.R2 

266$ 

PCFATCHK 

ERRN0,T28R0G,PKTSSR 



; VALUE TO WRITTEN TO NENORY 
;FILL MEN WITH ALL ONES 
.•STARTING READ BUFFER ADDRESS 
;READ FORWARD, ACK, CONNAND 
:SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
: ISSUE COMNAND 
;UAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
:SET UP EXPECTED 
:ARE THEY EQUAL 
*BR IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER URITE DATA 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
420 
T28WDE 
PKTSSR 



TRAP C$CLP1 



;PICK UP XSTO 
;SET UP EXPECTED 
;TNK SHOULD BE SET 
;IS TMK SET 

;BR, IF TNK WAS SET (GOOD) 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TNK NOT SET AFTER READ REV 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
421 

T28RRP 
EXPREC 



TRAP C$CLP1 



;FIRST LOC IN READ BUFFER 

.'EXPECTED IF NO DATA TRANS. 

;DID ANY DATA GET TRANSFERRED 

;BR. IF NO DATA TRANS (GOOD) 

;1NC AND CHECK FOR NORE THAN 25 ERRORS 

;DATA TRANSFERRED ON READ TAPE NARK 

TRAP C$ERHRD 
.WORD 422 
.WORD T28DTR 
.WORD EXPREC 

.•LOOP IF SELECTED 

TRAP C$CLP1 
.-SPACE RE VERSE. ACK, CONNAND 
:NUNBER OF RECORDS TO SPACE BACK 
;SET UP R4 WITH PACKET ADDRESS 
.•ISSUE CONNAND 
.•WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
.•SET UP EXPECTED 
;ARE THEY EQUAL 
*BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER SPACE REV CND. 

TRAP C$ERHRD 



CZTUYAO TU80 FRONT END PRT C 
TEST 4: VRITE/REAO TAPE HARK 
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10614 

10615 
10616 
10617 
10618 
10619 
10620 
10624 



1062S 

10626 
10627 
10628 
10629 
10630 
10634 



10635 

10636 
10637 
10638 
10639 
10640 
10641 
10642 
10643 
10644 
10645 
10649 



10650 

10651 
10652 
10653 
10654 
10655 
10656 
10660 



062554 
062556 
062560 
062562 
062562 
062564 
062570 
062572 
062576 
062600 
062602 
062606 
062606 
062610 
062612 
062614 
062616 
062616 
062620 
062624 
062630 
062632 
062634 
062640 
062640 
062642 
062644 
062646 
062650 
062650 
062652 
062660 
062666 
062672 
062676 
062702 
062706 
062712 
062714 
062716 
062722 
062722 
062724 
062726 
062730 
062732 
062732 
062734 
062740 
062742 
062746 
062750 
062752 
062756 
062756 
062760 
062762 



000647 
063615 
011700 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000650 
064725 
016344 

104406 
013701 
012702 
020102 
001406 
004737 

104456 
000651 
063451 
016344 

104406 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000652 
06361 
01170U 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 

mi 



063226 
100000 

020100 



063224 
000004 



020100 



100410 063330 

000001 063332 

063330 

177776 

017120 

000000 

100204 



020100 



063234 
000001 

020100 



260S: CKLOOP 

MOV 
NOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRO 



270S: CKLOOP 

NOV 
NOV 
CNP 
BEQ 

JSR 

ERRHRD 



280$: CKLOOP 

NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRO 



290>: CKLOOP 

NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRO 



T28BFR4^6,R1 

R1,R2 

«BIT15,R2 

R1.R2 

276$ 

PCFATCHK 

ERRN0,T28RRN,EXPREC 



T28BFR*4,R1 
«4.,R2 
R1.R2 
286$ 

PCFATCHK 

ERRN0.T28PBP,EXPREC 



#100410,T28PK3 

f1j28RB 

fT28PK3,R4 

R4,TSDB(R$> 

PCUAITF 

TSSR(R5)»R1 

«SSR!SC!BIT2,R2 

R1.R2 

296$ 

PCFATCHK 

ERRN0.T28R06.PKTSSR 



T28BFR«^14,R1 

R1,R2 

«6IT0,R2 

R1.R2 

306$ 

PC.FATCHK 

ERRN0.T28RIB.EXPREC 



;L00P IF SELECTED 



.WORD 
.WORD 
.WORD 



423 

T28RDC 

PKTSSR 



TRAP C$CLP1 



.•PICK UP XSTO 
;SET UP EXPECTED 
;TNK SHOULD BE SET 
;IS TNK SET 

;BR. IF TNK WAS SET (GOOD) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

;TNK NOT SET AFTER READ REV 

TRAP C$ERHRO 
.WORD 424 
.WORD T28RRN 
.WORD EXPREC 

.-LOOP IF SELECTED 

TRAP C$CLP1 
;PICK UP RESIDUAL BYTE COUNTER 
; SHOULD BE THE DIFFERENCE 
;IS COUNTER CORRECT 
;BR, IF COUNTER CORRECT 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
.•RESIDUAL BYTE COUNTER NOT CORRECT 

TRAP C$ERHRD 
.WORD 425 
.WORD T28P6P 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 
SPACE REVERSE .ACK, COHHAND 
NUHBER OF RECORDS TO SPACE BACK 
SET UP R4 WITH PACKET ADDRESS 
ISSUE CONNAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR, IF OK 

INC AND CHECK FOR NORE THAN 25 ERRORS 
TSSR INCORRECT AFTER SPACE CMD. 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
426 
T28RDG 
PKTSSR 



TRAP C$CLP1 



PICK UP XST3 
SET UP EXPECTED 
RIB SHOULD BE SET 
IS RIB SET 

BR, IF RIB WAS SET (GOOD) _ 

INC AND CHECK FOR NORE THAN 25 ERRORS 

RIB NOT SET AFTER READ REV 

TRAP C$ERHRD 
.WORD 427 
.WORD r28RIB 



C2TJYA0 TU80 FRONT END PRT C 
TEST A: yRITE/READ TAPE MARK 
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062764 


016344 






10661 


062766 










062766 


104406 




063330 


10662 


062770 


012737 


100010 


10663 


062776 


012737 


000005 

www V ^ 


063332 


1066A 


063004 


012704 


063330 




10665 


063010 


010465 


177776 




10666 


063014 


004737 


017120 




10667 


063020 


016501 


000000 




10668 


063024 


012702 


100204 




10669 


063030 


020102 






10670 


063032 


001406 






10671 


063034 


004737 


020100 




10675 


063040 










063040 


104456 








063042 


000654 








063044 


063534 








063046 


016344 






10676 


063050 










063050 


104406 






10677 


063052 


013701 


063226 




10678 


063056 


010102 






10679 


063060 


052702 


100000 




10680 


063064 


020102 






10681 


063066 


001406 






10682 


063070 


004737 


020100 




10686 


063074 








063074 


104456 








063076 


000655 








063100 


065004 








063102 


016344 






10687 


063104 










063104 


104406 






10688 


063106 


01 3701 


063224 




10689 


063112 


012702 


000004 




10690 


063116 


020102 






10691 


063120 


001406 






10692 


063122 


004737 


020100 




10696 


063126 










063126 


104456 








063130 


000656 








063132 


063451 








063134 


016344 






10697 


063136 










063136 


104406 






10698 


063140 










063140 










063140 


104403 




000031 


10699 


063142 


023727 


002170 


10700 


063150 


002402 


020152 




10701 


063152 


004737 




10702 


063156 








10703 










10704 










10705 
10706 


063156 


004737 


0173S4 




10707 


063162 


103002 







300S: CKIOOP 

NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



310$: CKLOOP 

NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



320$: CKLOOP 

NOV 
NOV 
CNP 
BEQ 

JSR 

ERRHRD 



330$: 



999$: 



#100010. T28PK3 

f5.T28RB 

#T28PK3,R4 

R4,TSDB(R5) 

PCUAITF 

TSSR(R5),R1 

#SSR!SC!BIT2,R2 

R1.R2 

31 6$ 

PCFATCHK 

ERRN0,T28RDF,EXPREC 



T28BFR*6,R1 

R1,R2 

#BIT15,R2 

R1.R2 

326$ 

PC.FATCHK 

ERRN0,T28RRP,EXPREC 



T28BFRH,R1 
f4..R2 
R1^R2 
336$ 

PC.FATCHIC 

ERRIliO,T28PBP.EXPREC 



CKLOOP 
ENDSUB 



CNP FATFL6.«25. 
BLT 999$ 
JSR PC«CKDR0P 



JSR 
BCC 



PC4TSTLOOP 
16$$ 



.WORD EXPREC 

LOOP IF SELECTED 

TRAP C$CLP1 
SPACE fORUARD.ACK, COMNAND 
NUNBER OF REC6RDS TO SPACE FORW. 
SET UP R4 WITH PACKET ADDRESS 
ISSUE CONNAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR IF OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 
TSSR INCORRECT AFTER SPACE CND. 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
428 
T28RDF 
EXPREC 



TRAP C$CLP1 



;PICK UP XSTO 
;SET UP EXPECTED 
:TNK SHOULD BE SET 
*IS TNK SET 

;BR, IF TNK WAS SET (GOOD) 
:INC AND CHECK FOR NORE THAN 25 ERRORS 
:TNK NOT SET AFTER READ REV 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 

429 

T28RRP 

EXPREC 



;LOOP IF SELECTED 

TRAP C$CLP1 
:PICK UP RESIDUAL BYTE COUNTER 
; SHOULD BE THE DIFFERENCE 
;IS COUNTER CORRECT 
;6R, IF COUNTER CORRECT 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
.'RESIDUAL BYTE COUNTER NOT CORRECT 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHKd 
430 
T28PBP 
EXPREC 



TRAP CSCLPI 



;«««««< END SUBTEST »»»»»> 
LI 0075: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
:TRY TO DROP THE UNIT 



;D0 WE NEED TO ITERATE T^ST 
:BR. IF NO LOOP REQUIRED 



C2TUYA0 TU80 FRONT END PRT C MACRO HI 200 13:43 PAGE 

TEST 4: WRITE /READ TAPE HARK 

10708 063164 000137 061070 JHP T28L00P 

10709 063170 163$: 

10710 063170 EXIT TST 
063170 104432 

063172 002252 



.•EXECUTE AGAIN 
;ALL DONE THIS TEST 



TRAP CSEXIT 
.yORD LI 0074- 



CZTUYAO TU80 FRONT END PRT C 
TEST 4: URITE/REMD TAPE HARK 
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SEQ 249 



10712 












10713 






;LOCAL STORAGE FOR THIS TEST 


10714 










10-<.-TUV2AI7> 


10716 


063174 






.BLKB 


10718 


063200 




T28PACKET: 


100004 


1071? 


063200 


100004 




.WORD 


10720 


063202 


063210 




.WORD 


T28DATA 


10721 


063204 


000000 




.WORD 


0 


10722 


063206 


000012 




.WORD 


10. 


10723 


063210 


T280ATA: 


T286FR 


10724 


063210 


063220 




.WORD 


10725 


063212 


000000 




.WORD 


0 


10726 


063214 


000024 




.WORD 


20. 


10727 


063216 


000000 


T28BFR: 


.WORD 


0 


10728 


063220 




.BLKW 


25. 


10729 






• 
• 






10730 






;URITE SUBSYSTEM HEHORY COWMNO 


10731 






• 
• 




10-<.-TUV2A87> 


10733 


063302 




T28PK2: 


.BLKB 


10735 


063310 






100006 


10736 


063310 


100006 




.WORD 


10737 


063312 


063340 




.WO.^D 


T28BF2 


10738 


063314 


000000 




.WORD 


0 


10739 


063316 


000006 




.WORD 


6. 


10741 


063320 






.BLKB 


10-<.-TUV2Aft7> 


10743 


063330 




T28PK3: 




100005 


10744 


063330 


100005 


T28RB: 


.WORD 


10745 


063332 








10746 


9 WA 

063332 


4\A9A9 A 

003072 


T28yB: 


.WORD 


FREE 


10747 


06i»334 


AA AAAA 

000000 


T28SZ: 


.WORD 


0 


10748 


A^ 

063336 


AAAAAA 

000000 


.WORD 


0 


10749 








.EVEN 




10750 
10751 


A^ 994 A 

063340 




t28BF2: 




10 


10752 


A^ 994 A 

063340 


A4 A 

010 


T288S0: 


.BYTE 


10753 


A^ 994 4 

063341 


'>AA 

200 


T28BS1 : 


.BYTE 


200 


10754 


A^ 994 ^ 

063342 


AAAAAA 

000000 


T28S2: 


.WORD 


0 


10755 


A^ 994 / 

063344 


AAAAAA 

000000 


T28S3: 


.WORD 


0 


10756 






• 






10757 








.EVEN 




10758 






.TAPE NOTION PACKET COfWANO VAL 


10759 


A^ 99 4 ^ 

063346 




T28INV: 




101411 


10760 


A^ TT/ ^ 

063346 


101411 




.WORD 


4 A7^ 4 

10761 


A^ TTCA 

063350 


4 AAA 4 4 

102011 




.WORD 


102011 


10762 


A^ 99 C A 

063352 


4 A94 4 4 

103411 




.WORD 


103411 


4 A^^ 9 

10763 


A^ 99f 4 

063354 


4 99999 

1 77777 




.WORD 


177777 


4 A9X / 

10764 


A^ TTC ' 

06335o 


4 AAA4 4 

100011 


T28RN: 


.WORD 


100011 




VOjjOV 


T28UDR: 


.WORD 


100411 


10766 


063362 


101011 


T28C0N: 


.WORD 


101011 


10767 


063364 


177777 




.WORD 


177777 


10768 






• 






10769 


063366 


000000 


t28CNT: 


.WORD 


0 


10770 


063370 


000000 


T28CNU: 


.WORD 


0 


10771 


063372 


000000 


T28DLY: 


.WORD 


0 


10772 








.EVEN 





.•COMMAND PACKET FOR TEST 

.WRITE CHARACTERISTICS COMMAND. WPH IE* ACK 
.ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BLOCK SIZE 
; CHARACTERISTICS DATA BLOCK 
.•ADDRESS OF MESSAGE BUFFER 

.•LENGTH OF MESSAGE BUFFER 

.•MESSAGE BUFFER 



.•WRITE SUB SYS MEM COMMAND. IE AND ACK 
;ADDRESS OF SELECT BLOCK DATA 

.•SIZE OF DATA PACKET 

.•REREAD COMMAND. AND ACr 
.•ADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER (EXTENT) 



;BSELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 
;DATA AREA 



.•ILLEGAL MODE BITS TEST DATA 



.•WRITE TAPE NARK COMMAND 
.ERASE COMMAND 
.•WRITE TAPE HARK RETRY 
;END CF DATA 

.•TAPE TIMER COUNTER STORAGE AREA 
:TAPE TIMER COUNTER STORAGE AREA 
.•DELAY COUNTER 



CZ^UYAO TU80 FRONT END PRT C 
TEST 4: WRITE/READ TAPE NARK 



10774 
10775 
10776 
10777 
10778 
10779 
10780 
10781 
10782 
10785 
10784 
10785 
10786 
10787 
10788 
10789 
10790 
10791 
10792 
10793 
10794 
10795 
10796 
10797 
10798 
10799 
10800 
10801 
10802 
10803 
10804 
10805 
10806 
10807 
10808 
10809 
10810 
10811 
10812 
10813 
10814 
10815 
10816 
10817 
10818 
10819 
10820 
10821 
10822 
10823 
10824 
10825 
70826 
10827 
10828 
10829 
10830 



063374 
063451 
063534 
063615 
063677 
063754 
064035 
064106 
064^77 
064244 
064321 
064370 
064443 
064522 
064575 
064647 
064725 
065004 
065062 
065144 
065241 



065266 
065266 
065272 
065276 
065302 
065306 
065310 
065314 
065320 
065322 
065326 
065330 
065334 
065340 
065346 
065350 
065354 
065356 



065360 
065360 
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.-LOCAL TEXT MESSAGES FOR TEST 



SEO 250 



1 DA 


iH 1 


1 AO 


T5flOfQ* 
1 cOnlD • 




1 00 

tec 




1 AX 


T5flDDD» 






^ox 


15X 


T5i(onr • 






ic3 


1 c3 


T5flDni; • 


A<r f 7 




ic^ 


15X 


T5ftLlAF • 
1 COwVT m 




111 




I 5h 


T5fli no* 


•Adtl4 


1 57 


Ice 


111 
1 1 1 


T5ft<<D • 
1 cOddn • 




1 

1 CH 




157 


T28UDE: 


.ASCIZ 






1^0 


T2880T: 


.ASCIZ 


124 


123 


123 


T28TN: 


.ASCIZ 


122 


145 


167 


T28RyN: 


.ASCII 


104 


162 


151 


T280FL: 


.ASCIZ 


124 


123 


123 


T28UDC: 
T28VCK: 


.ASCIZ 


103 


126 


103 


.ASCIZ 


124 


115 


113 


T28TNK: 


.ASCIZ 


124 


115 


113 


T28RRM: 


.ASCIZ 


124 


115 


113 


T28RRN: 


.ASCIZ 


124 


115 


113 


T28RRP: 


.ASCIZ 


104 


141 


164 


T28DTR: 


.ASCIZ 


104 


141 


164 


T28DTA: 


.ASCIZ 


127 


162 


151 


TST28ID: 










.EVEN 



Tape Position Not Correct, 
Residual Byte Counter Regit 
TSSR Incorrect After READ ( 



RIB ShOMld Be Set' 
st?r (RBPCR) Not Correct* 
REVERSE Into TAPE HARK' 
TSSR Incorrect After SPACE Co«Mnd Into TAPE NARK' 
TSSR Not Correct After Illegal Node Bits Set' 
Illegal Node Bits, Failed To Set ILl Bit In XSTO' 
WRITE NISCELLANEOUS Conund Not Accepted* 



TSSR Not Correct After READ DATA Cosnand, Into TAPE NARK' 
Tape Not At BOX After REWIND Conund' 
TSSR Not Correct After FORNAT Conaand Reject* 
Rewind (POSITION) Comand Not Accepted* 
Drive 7 Select Failed To Set 'tjFL'^^In TSSR* 
TSSR Not Correct After WRITE TAPE NARK Coamand* 
CVC Set, D1dn"t Reset VCK In Nessage Buffer* 
TNK Not Set After WRITE TAPE NARK CoMiand' 
TNK Not Set After READ REVERSE Into TAPE NARK' 
TNK Not Set After SPACE REVERSE Into TAPE NARK' 
TNK Not Set After READ FORWARD Into TAPE NARK' 
Data Transferred On READ REVERSE Into A TAPE NARK* 
Data CoMare Error, Data Read Froa Tape Not Equal To Written* 
ASCIZ %ir1te/Read Tape Nark* 



;ROUTIHE TO RESTORE CONRANO PACKET TO START-UP (DEFAULT) VALUES 
; WRITE SUBSVSTEN HEHORY COMAND 



T28REST: 







SAVRE6 


012701 


063200 


NOV 


0i2721 


100004 


NOV 


012721 


063210 


NOV 


005021 




CLR 


012721 
012721 


000012 
063220 


NOV 
NOV 


005021 




CLR 


012721 


000024 


NOV 


005021 




CLR 


012711 


000000 


NOV 


012702 


000030 

177777 063220 64$: 


NOV 


012762 


NOV 


005742 




TST 


020227 


000000 


CNP 


001371 




BNE 


000207 




RTS 



fT28PACK£T-R1 
#100004, (R1)* 
#T28DATA,(R1)^ 
(RD* 

#10., (RD* 
#T286FR,(Rl)t 

(RD* 

#20., (RD* 

(RD* 

#b^(R1) 

,T28BFR(R2) 

-(R2) 
R2,#0 
64i 
PC 



T28RT2: 



SAVRE6 



;SAVE THE REGISTERS 

; START OF THE PACKET 

.•WRITE SUBSYSTEN NEN. WITH ACK, 

.•ADDRESS OF CHARAISTICS DATA BLOCK 

.EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

;ADDRESS OF NESSAGE BUFFER 

.-LENGTH OF NESSAGE BUFFER 

.•SELECT DRIVE ZERO 

.NUNBER OF LOCATIONS TO BE CLEARED 

;ALL ONES TO NESSAGE BUFFER 

;NEXT LOCATION 

.•CHECK FOR END 

.KEEP GOING UNTIL DONE 

; RE TURN 



;SAVE THE REGISTERS 



J 



CZTUYAO rU80 FRONT END PRT C 
TEST A: WRITE /RE AD TAPE HARK 
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SEQ 251 



10831 
10832 
10833 
10834 
1083S 
10836 
10837 
10838 
10839 
10840 
10841 
10842 
10843 
10844 
10845 
10846 
10847 
10848 
10849 



065364 
065370 
065374 
065400 
065402 
065406 
065410 
065414 
065416 
065420 
065422 
065422 
065426 
065432 
065434 
065436 
065440 
06S442 
065444 
065444 
065444 



>701 
^721 



ci; 

oil , 

012721 
005021 
012751 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



063310 
100006 
063340 

000006 

063340 



063330 



T28RT3: 



NOV 
NOV 
NOV 
CLR 
NOV 
CLR 
NOV 
CLR 
CLR 
RTS 

SAVRE6 

NOV 

CLR 

CLR 

CLR 

CLR 

RTS 

ENDTST 



#T28PK2«R1 
#1 " 
#T ^ 
(RD* 
f6.,(R1)« 
(R1)t 

«T28BF2,R1 

(R1)t 

(R1) 

PC 



#T28PK3,R1 

(R1)t 

(RD* 

(R1)» 

(R1) 

PC 



(R1)t 



.•START OF THE PACKET 

.•WRITE SUBSYSTEN NEN. WITH ACK. 

.ADDRESS OF DATA BLOCK 

.•EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

.'POINT TO DATA SEL AREA 



.•RETURN 



.•GET PACKET ADDRESS 
.•CLEAR CONNAND AR€A 
.•CLEAR ADDRESS AREA 
.•CLEAR EXTENDED ADDRESS 
;SIZE OF DATA TRANSFER 
.•RETURN 

L10074: 



TRAP CSETST 



C2TUYA0 TU80 FRONT END PRT C 
DISPLAY BREAKPOINT SETTINGS 



11923 
11928 
11934 
11935 
11936 
11937 
11938 
11939 

imo 
imi 
im2 
im3 
im* 
ims 

11946 
11947 
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SEQ 252 



11948 
11949 



11950 



11951 



11952 



11953 
11954 
11955 
11956 
11957 



072244 
072244 
072246 



072246 
072246 
072250 
072252 
072254 
072256 
072256 
072260 
072262 
072264 
072266 
072266 
072270 
072272 
072274 
072276 
072300 



072300 
072300 
072327 
072353 



000015 



000031 
072300 
160000 
177776 

001031 
072327 
000000 
000776 

002032 
072353 
000340 
000000 
000007 



104 
111 
111 



.SBTTL HARDUARE PARAMETER CODING SECTION 

^THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LSNARD:: 



B6NHRD 

.WORD L10076-L$HARD/2 



105 
116 
116 



LI 0076: 
126 HPMl: 
124 HPM2: 
124 HPN3: 



GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

6PRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

ENDHRD 

.EVEN 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



HPMl ,0,0,160000.177776.Y£S 

TSCODE 

HPMl 

TSLOLIM 

TSHILIM 

HPM2, 2,0,0, 776, YES 

TSCODE 

HPM2 

TSLOLIM 

TSHILIM 

HPM3,4,0,340,0,7,Y£S 

TSCODE 

HPM3 

340 

TSLOLIM 
TSHILIM 



'DEVICE ADDRESS (TSSR) * 
•INTERRUPT VECTOR • 
'INTERRUPT PRIORITY * 



;GET TS6A/TS0B REGISTER ADDRESS. 



;GET VECTOR ADDRESS. 



;GET INTERRUPT PRIORITY. 



CZTUYAO TU80 FRONT END PRT C MACRO N1200 
SOFTWARE PARAMETER CODING SECTION 



11959 
11960 
11961 
11962 
11963 
11964 
11965 
11966 
11967 
11968 
11969 



11970 



11971 



11972 
11973 
11974 



11975 
11976 
11977 
11978 
11979 
11980 
11981 
11982 
11983 
11984 
11985 
11986 
11987 
11988 



11989 

11990 

11991 

1199, 

1199 

11994 

11995 



072572 
072572 
072574 
072574 
072576 
072600 
072602 
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.SBTTL SOFTWARE PARAMETER CODING SECTION 



SEQ 2SS 



072404 






072404 


000006 




072406 






072406 






0rcH06 


0001 




072410 


072422 




072412 


Mnii 




072414 






072414 


001130 




072416 


072461 




072420 


mm 




072422 






072422 






072422 


105 


116 


072461 


111 


116 


072511 


120 


105 


072541 


120 


105 



000004 

023644 
031656 
051026 
061024 



THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT A*;E used BY THE SUPERVISOR TO BUILD P-TABLES. TH'' 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LSSOFT:: 



BGNSFT 

.WORD L10077-LSS0FT/2 



101 
110 
122 
122 



L10077; 



SPMl 
SPM4 
SPM6 
SPM7 



GPRML 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
GPRMD 
GPRMD 
ENDSFT 
.EVEN 



SPN1,0«-1,YES 

T$CODE 

SPMl 

-1 

SPM4.2,-1.VES 

TSCODE 

SPM4 

-1 

SPM6,4,0. 7777,0, 7777,¥ES 
SPM7,6.0,7777,0.7777,VES 



;6ET RAM DUMP FLAG 



; GET ITERATION CONTROL. 



; GET LOCAL ERROR LIMIT 
; GET GLOBAL ERROR LIMIT 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.SBTTL 



'ENABLE M74S4 RAM DUMP ON ERROR* 
'INHIBIT ITERATIONS 
*PER TEST ERROR LIHIT * 
'PER UNIT ERROR LINIT • 

PATCH AREA 



DISPATCH TABLE 
•** MOVE TO FRONT OF PROGRAM FOR RELEASE 



DIS'^'CH 
.WORD 4 
LSDISPATCH:: 
.WORD 
.WORD 
.WORD 
.WORD 



TESTNO 



T1 

II 

T4 



072604 



FINALLY A GENEROUS PATCH AREA. 

AND AN ADJUSTMENT TO ACCOUNT FOR THE 'lASTAD BITr* HACK 
DESCRIBED IN "SUPPRG.MEM" (FOR REV C). 

^ATCH:: 



CZTUYAO TU80 FRONT END PRT C 
PATCH AREA 
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SEO 254 



11997 

11998 

11999 

12000 

12001 

12002 

12003 

12004 

12005 

12006 

12007 

12008 

12009 

12010 

12011 

12012 

12013 

12014 

12015 

12016 

12017 

12018 

12019 

12020 

12021 

12022 

12023 

12024 

12025 

12026 

12027 

12028 

12029 

12030 

12031 

1203, 

1203 

12034 

12035 

12036 

12037 

12038 

12039 

12040 

12041 

12042 

12043 

12044 

12045 

12046 

12047 

12048 

12049 

12050 

12051 

12052 




072642 
072644 
072646 
072652 
072656 




072676 
072700 
072704 
072706 
072714 
072716 
072724 
072730 

072746 
072750 
072756 
072762 
072766 
072770 



072774 
072774 
073000 
073002 



073004 
073010 
073012 
073016 



012706 
000005 
01^701 
0053C1 
001376 
012703 
004757 
012701 
012705 
005000 
010021 
012725 
062700 
020027 
003770 
012741 
012737 
005005 
012701 
012504 
052737 
010421 
042737 
020127 
101765 

012703 
004737 
000000 
000137 



004737 
001375 
000207 



105737 
100375 
112337 
000207 



001000 
177777 



073020 
072774 
172340 
172300 



077406 
000200 
001600 

007600 
002000 

140000 

000001 

000001 
157776 

000001 
073107 
07277k 

073156 



073004 



177564 
177566 



073020 


015 


012 


073037 


015 


012 


073107 


015 


012 


073137 


015 


012 



MOVER: 

MOV 

RESET 

MOV 

5S: DEC 
BNE 
MOV 
JSR 

TEST5A: MOV 
MOV 



20S: 



172354 16S: 



177572 
177572 



172354 
003600 

177572 



17$: 
lot: 



CLR 

MOV 

MOV 

ADD 

CMP 

BLE 

MOV 

MOV 

CLR 

MOV 

MOV 

BIS 

MOV 

BIC 

CMP 

BLOS 

ADD 

CMP 

BIT 

BIC 

MOV 

JSR 

HALT 

JMP 



«1000,SP 

#-1,R1 

R1 

5$ 

fMHDR«R0MBASE-M0VER,R3 

PC, PRINT 

#KIPAR0,R1 

«KIPDR0,R5 

RO 

RO.tRD* 
#77406, (R5)* 
«200.r6 
R0.fl600 
20i 

f7600,-(Rl) 
«2000,a#KIPAR6 

R5 

fUOOOO.RI 
(R5)*,R4 
#1 ,if SRO 
R4,(R1)« 
#1 ,if SRO 
R1 -#157776 
lOi 

a#Kl^AR6.f3600 
17» 

#1 BfSRO 

#6d00^R0HBASE-M0VER,R3 
PC .PRINT 

RLBOOT 



PRINT ROUTINE 



PRINT: 
IS: 



JSR 
BNE 
RTS 



PC.TTYPRT 

IS 

PC 



CHARACTER PRINT ROUTINE 



tTVPRT: TSTB 
BPL 
MOVB 
RTS 



atTTOCSR 
TTYPRT 

(R3)«,8fTT0BFR 
PC 



:SET STACK AT LOC 1000 
;GET THINGS IN PLACE 
: SET UP COUNTER 
;BUMP COUNTER 

:BR. IF MORE COUNTING TO DO 
.•POINT TO MESSAGE 
'"MOVER REV 

;MOVER OF KIPAR REGISTERS 
.•MOVER OF THE KIPDR REGISTERS 
.•FIRST PAGE BASE ADDRESS 
;SET BASE FOR NEXT MAP 
:4K READ/WRITE EACH PAGE 
;BASE FOR THE NEXT PAGE 
;DONE ALL PAGES ? 

:SET UP ALL MEMORY MANAGEMENT PAGES 

;SET UP I/O PAGE 

.•MOVER MEMORY PAGE 32KyORDS 

.•INITIAL LOCATION 0 MOVER 

.-MOVER AT LOC 0. RELATIVE TO KIPAR6 

;GET MEMORY CONTENTS 

.•ENABLE MEMORY MANAGEMENT 

.•PUT INTO UPPER MEMORY 

.•TURN OFF MEMORY MANGEMENT 

;END OF MEMORY PAGE YET ? 

;LOOP TILL MHOLE PAGE WRITTEN 

:MAP INTO NEXT PAGE 

;UP TO 64K YET 

;LOOP UNTIL ALL MEMORY WRITTEN 
.•TURN OFF MEMORY MANGEMENT 
.•POINT TO MESSAGE 
;'tODE HAS BEEN MOVED" 
.-WAIT FOR DISK SWAP 
:G0 BOOT THE XXDP PACK 



;G0 TO PRINT ROUTINE 

;LOOP UNTIL 000000 IS FOUND 

.•RETURN TO CALLER 



.CHECK TTY FOR DONE 
.-LOOP UNTIL DONE SETS 
:SEND OUT CORRECT CHARACTER 
.RETURN TO CALLER 



MESSAGE AREA 



115 
103 
103 
102 



GOOD: 
BOOT: 



.ASCII 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



<15><1 
<15><1 
<15><1 
<15><1 



>>/MOVER REV 0.0/ 

b/CODE FROM 0-32K MOVES TO 32*64K WORDS/ 
1>/C0DE HAS BEEN M0VED/<1S><12> 
!>/BOOTING XXDP/ 



K « 
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SEO 255 



PATCH AREA 








Uf J 1 JO 








(\7X^ 


012701 


174400 


1 PO^^ 
1 CVjO 


07X1^5 
U r 3 1 Oc 


012700 


174404 




07*^1 
Ur O 1 QO 


012720 


000013 






004537 


073320 




07X1 7A 


000004 




1 PO^Ci 


n7XP0ft 


032711 


000001 


1 CWO I 


07XP0^ 

vr ^cwH 


001010 




1 CvDC 




011004 


177730 


1 £UO^ 


07XP10 


042704 






001451 






vf lO 


022704 


000006 




Ur JCCC 


101446 




■ CVQr 


vr iJCC"! 


000756 






07X?56 

V' JCbD 


004537 


073320 




vr ^CjC 


000010 




1P070 


075234 

vr jCj^ 


011004 




1P071 


vr jCj^ 


042704 


000177 


1?07? 


073242 

vr Jb*tc 


005204 






073244 


010440 


073320 


1 Cwf H 


07^?4A 


004537 




0732S2 
ur ^cjc 


000006 


174402 


1 CVr O 


073254 
ur jc^*f 


005037 


1P077 

Icvr r 


0732^0 
ur jcou 


005020 




I CvfO 


0732^2 
ur jcwc 


012710 


177400 


19079 


073266 


004537 


073320 


1 CVwV 


073272 

v r r c 


000014 




12081 


073274 

V r f ~ 


005000 


000240 000000 


12082 

■ C WWfc 


O; 3276 

V » r V 


022737 


12083 


073304 

vr ^wv^ 


001016 


073137 


1208A 


073306 


012703 


12085 


073312 


004737 


072774 


12086 


073316 


AACAA7 




12087 








12088 








12089 








12090 








12091 









RLBOOT: 
If: 



2$: 



NOV fCSR«R1 

NOV fDAR.RO 

NOV mSR«(RO)* 

JSR R5,3$ 

.WORD DL6ETS 

BIT #READY.aR1 

BNE 2S 

NOV (R0),R4 

BIC #DLERR,R4 

BEQ 7$ 

CNP #DLUN,R4 

BLOS 7S 

BR U 

JSR R5.3i 

.WORD DLRDHD 

NOV aR0,R4 

BIC #DLCYL,R4 

INC R4 

NOV R4,-(R0) 

JSR R5,3t 

.WORD SEEK 

CLR a#BAR 

CLR (RO)* 

NOV #-256., iRO 

JSR R5,3S 

.WORD READ 

CLR RO 

CNP #240«af0 

BNE 8t 

NOV fB0OT«RONBASE-H0VER«R3 

JSR PCPRINT 

CLR PC 



END TEST NUNBER SIXTEEN 



;DL*S CSR REGISTER ADDRESS 

.•ADDRESS OF RL'S REGISTERS 

;SET RESET AND GET STATUS 

;NOVER PULSE 

:GET STATUS CONNAND 

; CHECK FOR DRIVE READY 

;BR IF READY 

;GET STATUS INFO 

: ERROR NASK 

;BR IF NO PACK 

;UNLOAD HEADS CHECK 

*BR IF YES 

•JUST WAIT AROUND FOR READY 
.•RETURN TO SAVE CODE 
.GET CURRENT HEAD POSITION 
;GET ADDRESS 
;JUST CYLINDER ADDRESS 
;SET UP FOR SEEK 
.•CYLINDER OFFSET IN 
:D0 THE SEEK 
.•SEEK CONNAND 
.•ADDRESS 0 
.•CYLINDER 0 SECTOR 
;256 WORD TRANSFER 
:D0 THE READ 
;READ CONNAND 
.•POINT TO DRIVE 0 
:LOC 0 s TO NOP 
;N0T TRUE BOOT RECORD 
.•POINTER TO PRINT ROUTINE 
.•"ABOUT TO BOOT XXDP" 
.'LOOKS GOOD JUNP 0 



0 

2*S 



CONP 



L 4 
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(R5)^,aR1 

fDL0NER,aR1 

4S 

5S 

R5 

R2JS 



NZ,.8377 
.=.J377*1 
.ENOC 
LAS TAD 
.EVEN 

.UORD T$FREE 
.WORD TSSIZE 



SEQ 256 



PATCH AREA 




12093 


A^T^ TA 

073320 


012511 




075322 


032711 100200 


12095 


075326 


001775 


12096 


Of 5550 


100401 


^ 0 AO"? 
l^uVr 


Or 555^ 


000205 


i209o 


Of 555h 


077266 




Uf JjJO 


000000 


12100 


073340 


000000 


12101 


073342 


000000 


12102 






12103 






12104 






12105 






12106 


073344 





12107 
12108 
12109 
12110 
12111 
12112 



12113 
12114 
12115 
12116 

12117 
12118 
12119 



073344 
073346 
073350 



073362 
000005 



073350 
073350 
073350 
073352 
073354 
073354 
073356 
073360 
073362 
073362 
073362 



000000 
000003 

172522 
000224 
000240 



000001 



3S: 


HOV 


■t# • 


BIT 




BEQ 




BMI 




RTS 


5$: 


SOB 




HALT 


7S; 


HALT 


8$: 


HALT 




.IF 



; ACTUAL HOVER WITH COMMAND 

.'CHECK FOR DONE OR ERROR BITS 

;UAIT FOR SAME 

;BR ON ERROR 

;0K KEEP GOING 

.-RETRY MINUS ONE 
.•HALT ON ERROR 
;HALT ON ERROR 
.•HALT ON ERROR 



:SET LAST USED ADDRESS. 



LSLAST:: 



♦4 



L10100: 



L10102: 



.SBTTL HARD CODED P-TABLE 

DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 

BGNSETUP 1 

BGNPTAB 

.UORD 0 

.WORD L10102-./2-1 



.WORD 
.WORD 
.WORD 
ENDPTAB 

ENOSETUP 

.END 



172522 

224 

PRI05 



C2TUYA0 


TU80 FRONT 


END PRT C 
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SYWOL 


TABLE 








ADDSSR 


011772 G 


CTABH 


003116 6 


DATASC 


ADR = 


000020 6 


CSAU - 


000052 


DEBU6M 


AHBTSS 


006336 


CSAUTO- 


000061 


DEVCNT 


ASSEHB: 


000010 


CSBRK = 


000022 


DEVDRO 


A1716 = 


000003 


CfSSEG: 


000C04 


DEVNRD 


BADOAT 


003110 G 


CSBSUB- 


000002 


DEVNXR 


BADSSR 


016550 G 


CSCEFG* 


000045 


DEVONL 


BAR s 


174402 


C$CLCK= 


GC0062 


DEVSUN 


BENBSW 


0021 74 C 


CSCLEA- 


000012 


OFPTBL 


BIE : 


040000 


CSCLOSs 


000035 


DIAGMCs' 


BITO s 


000001 G 


CfCLPIs 


000006 


DLCYL = 


BITOO s 


000001 6 


CSCVECs 


000036 


DLDNER'^ 


BIT01 a 


000002 6 


CSOCLN- 


000044 


DLERR = 


BIT02 = 


000004 G 


CSOOOU- 


000051 


0L6ETS= 


BIT03 = 


000010 G 


C$ORPT= 


000024 


OLRDHOs 


BITOA = 


000020 G 


CSDU = 


000053 


OLRDNHs 


BIT05 = 


000040 G 


C$EDIT= 


000003 


OLSR • 


BIT06 - 


000100 G 


CSERDFa 


000055 


DLUN s 


BIT07 = 


000200 G 


CSERHRs 


000056 


DSBINT 


BIT08 = 


000400 G 


CSERROs 


000060 


DUAD12 


BIT09 = 


001000 G 


C$ERSF= 


000054 


DUFLG 


Bin = 


000OC2 G 


C$ERSO= 


000057 


DUMMY 


BIT10 = 


002000 G 


C$ESCA= 


000010 


EF.C0N= 


BIT11 = 


004000 G 


CSESEG= 


000005 


EF,NEU= 


BIT12 = 


010000 G 


CSESUB- 


000003 


EF.PWRs 


BIT13 = 


020000 G 


CSETSTs 


000001 


EF.RES= 


BIT14 = 


040000 G 


C$EXIT= 


000032 


EF.STA= 


BIT15 = 


100000 G 


CSGETBs 


000026 


ENAXOU 


BIT2 = 


000004 G 


CSGETUs 


000027 


EN = 


BIT3 = 


000010 6 


C$GNAN= 


000043 


ENAINT 


81 TA = 


000020 G 


CSGPHRs 


000042 


ENVIRN 


BITS = 


000040 G 


C$6FL0- 


000030 


EPRTSy 


BIT6 = 


000100 G 


C$GPRI= 


000040 


EPRT1 


BIT7 = 


000200 G 


CSINITs 


00001 1 


EPRT2 


BITS = 


000400 G 


CSINLPs 


000020 


EPRT3 


BIT9 = 


001 OOC 6 


CSMANIs 


000050 


ERCM 


BOE = 


000400 G 


CWEH = 


000031 


ERRHI 


BOOT 


073137 


C$MSG = 


000023 


ERRK 


BRINIT 


004355 


CSOPENs 


000034 


ERRLO 


BSELO = 


000000 


C$PNTB= 


A AAA 4 M 

oooou 


ERRNO = 


BSEI.l = 


000001 


C$PNTFs 


AAV%A4 ^ 

000017 


ERRVEC= 


CHKAMB 


0167U 


C$PNTS= 


000016 


ERTABE 


CHKMAN 


02U02 6 


C$PNTX= 


000015 


r^TABL 


CHKTSS 


017234 


CSQIO - 


000377 


ESUM 


CKOROP 


020152 


CSRDBU- 


000007 


EVL = 


CKEPIAX 


020000 


CSREFGs 


000047 


EXBCNTs 


CKMSG 


011212 G 


CSRESE- 


A A A A9<* 

000033 


EXPBRE 


CKnSG2 


011332 6 


CSREVIs 


000003 


EXPO 


CKRAff 


010534 6 


C$RFLA= 


000021 


EXPGOT 


CKRAn2 


011110 6 


CSRPT = 


A A A A P 

000025 


EXPGT2 


CMPWEM 


020556 


C$SEFG= 


A A A A ^ £ 

000046 


EXPMSG 


CONFIG 


020220 


CSSPRIs 


A A A A ^ « 

000041 


EXPREC 


COUNT 


Cj^<:34 G 


CJSVcC- 


AAAA77 
00003 r 


cXTA 


CSR - 


774400 


C$TPRI= 


000013 


EXTEND 


CSRADO 


002154 6 


DAR : 


174404 


ESEND = 


CTAB 


003116 6 


DATA 


002256 6 


ESLOAOs 


CTABE 


003130 G 


DATAFL 


015063 


FATCHK 



N 4 
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021134 


FATERR= 


000060 


GSYES = 


000010 


011464 


FATFLG 


002170 G 


HIADDR- 


001400 


002166 G 


FERCM 


011554 


HIMEM s 


007776 


02S574 


FIFEXP 

FU ifti 


012022 G 


HOE = 


100000 G 


A A 9^ « 9 

023513 


012074 


HPM1 


072300 


023431 


FIF2MS 


012143 


HPM2 


072327 


023361 


FILLME 


020372 


HPM3 


072353 


A AW A » 

023324 


FNOINT 


004113 


IBE = 


010000 G 


002124 G 


FORCER 


002144 G 


IDU = 


000040 G 


000000 


FREE 


AA^A^A A 

003072 G 


lER = 


020000 G 


000177 


FREEHI 


A A9 A9^ 

003076 


IFAULT 


004154 


100200 


FRESIZ 


003074 G 


INCERK 


017742 


1 77730 


FUSI 


004015 


INTCPC 


017020 


A A A A A / 

000004 


FSAU s 


AAAAdl P 

000015 


INTFLA 


01 7015 


000010 


F$AUTO= 


000020 


INTMAS 


017014 


000016 


FSBGN = 


A A A A t A 

000040 


INTR 


017066 G 


000013 


F$CLEA= 


000007 


INTREC 


002172 6 


000006 
01 7054 


F$OU = 


000016 


INTVEC 


017016 


F$ENO 5 


A AAA 1 4 

000041 


INTX 


004176 


004541 


F SHARD- 


000004 


lOKCKI* 


000200 


003060 G 


F$H« - 


000013 


IOKSTP= 


000001 


003030 


F$INlTs 


000006 


IPRI 


002160 G 


000036 G 


FfJMP = 


000050 


ISR - 


000100 G 


000035 G 


F$MOD = 


000000 


IVEC 


002156 G 


000034 G 


F$HSG = 


00001 1 


IXE = 


004000 G 


000037 G 


F$PROT= 


A A A A A A 

000021 


ISAU - 


000041 


000040 G 
017675 


FSPUR = 


000017 


ISAUTQ: 


000041 


F$RPT - 


AAAA4 A 

000012 


ISCLM = 


A A A A M 4 

000041 


AAA AAA 

000000 


FSSEG = 


AA A A A9 

000003 


ISDU s 


A A A A B 4 

000041 


A« ^AAA 

01 7022 


F$SOFT= 


A A A AA^ 

000005 


ISHRD = 


A A A A m m 

000041 


021532 


FSSRV = 


A A A A 4 A 

000010 


ISINITs 


000041 


A A A4 ^ ^ A 

002146 G 


FSSUB = 


A A A A A A 

000002 


ISnOD - 


A A A A a A 

000040 


A AP ^ ^ A 

005672 


F$S« = 


A AAA4 § 

000014 


isnsG - 


A A A A t 4 

000041 


005764 


F$TEST= 


AA A A A4 

000001 


ISPROTs 


A A A A t A 

000040 


AA ^ A A 

006025 


GDDAT 


003112 G 


I$PTAB= 


000041 


01 1 565 


GERRMA 


A A A 4 / A A 

002142 G 


ISPUR s 


000041 


A A A A A A 

002202 G 


GETPAT 


021076 G 


ISRPT = 


AAAA# 4 

000041 


A 4 P i 

017654 


GETSEL 


AA4 4 ^ A A 

021160 G 


V ^ A^#» 

ISSEG = 


000041 


A A A '% A t A 

002204 6 


GOOD 


073107 


ISSETU^ 


000041 


A A A ^ P M 

000656 


GSCNTO- 


AAA AAA 

000200 


ISSFT = 


000041 


A A AAA / A 

000004 G 


GSDELM- 


AA A99A 

000372 


ISSRV = 


000041 


A A999 A 

003330 


G$DISP= 


A A A A A9 

000003 


ISSUB = 


#kAAA4 4 

000041 


AA94 9A 

0031 30 


GSEXCP- 


AAA / AA 

000400 


ISTST = 


A AAA/ 4 

000041 


017656 


GSHlLIs 


A A A A A A 

000002 


JSJMP = 


A A A4 M Tl 

000167 


AAAAA^ A 

000004 G 


GSLOLI'^ 


A A A A A4 

000001 


KIPAROs 


172340 


A A AA4 A 

000010 


GSNO - 


A A A A A A 

000000 


KIPAR1* 




A« ^9PA A 

016352 6 


GSOFFSs 


AAA t A A 

000400 


ft« • A AAA 

KIPAR2= 


172344 


002176 6 


GSOFSIs 


000376 


KIPAR3= 


172346 


004431 


GSPRMA^ 


A A A A A4 

000001 


KIPAR4- 


172350 






AAAAA^ 




1 r cyjc 


002266 G 


G$PRNL> 


000000 


KIPAR6- 


172354 


016344 G 


6$RADA> 


000140 


KIPAR7= 


172356 


005232 


6SRADB- 


000000 


KIPDRO- 


172300 


005230 


G$RADD= 


000040 


ICIPDR1= 


172302 


002100 


GSRADL: 


000120 


KIPDR2- 


172304 


000035 


G$RAOO- 


000020 


KIPDR3= 


172306 


020100 


GSXFER- 


000004 


KIPDR4- 


172310 



N A 
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SYMBOL 


TABLE 






















172312 




LSREV 


002010 G 


L10057 


041220 


NULCR 


AA/ / OZ 

004426 


O.GET 


A94 07Z 

071236 


KIP0R6= 


1723U 




LSRPT 


023062 G 


Li 0060 


042066 


NXM = 


AA/ AAA 

004000 


OaGO 


AZ Z 

067256 


KIPDR72 


172316 




LSSOFT 


/ A^ ^ 

072406 G 


LI 0061 


042724 


NXR 


AA7Z 7Z 

003636 


0.G01 


AZ ^7 / / 

067344 


KTENAB 


003102 


G 


LSSPC 


AA^APy ^ 

002056 G 


LI 0062 


043644 


ki w AP 

NXRERR 


AAC4 n 

005176 6 


0.G02 


AZ 77CA 

067350 


KTFLG 


003100 


G 


L$SPCP 


AA^A^A 

002020 G 


LI 0063 


044642 


&l WA W 

NXRX 


AA7Z.7C 

003675 


A kit f^k 1 

O.HIGH 


A70 4 / Z 

072146 


KTINIT 


021620 




L$SPTP 


AA^A^/ ^ 

002024 G 


Li 0064 


045212 


NXTU 


022224 


A 1 ^ _ 

O.LG = 


AAAA4 A 

00001 0 


KTOFF 


0202AA 




LSSTA 


002030 G 


LI 0065 


045654 


OFL = 


AAA 4 A A 

000100 


O.LGCH 


A74 C / 4 

071 541 


KTON 


020226 




LSSU 


AA^I 7/ /* 

002134 G 


Li 0066 


061022 


ONcFIL= 


AAAAAA 

000000 


O.LCDR 


AZZ 4 7Z 

066136 


LERRMA 


002U0 


G 


LSTEST 


AAOl 1 / 

002114 G 


LI 0067 


051446 


0»APT5= 


AAAAAA 

000000 


A 1 Al 1 

O.LOU 


A704 / / 

072144 


LISTAL= 


000001 




LSTIHL 


AA')A1 / 

002014 G 


Li 0070 


052220 


A^ Al 1 ^ 

OSAU - 


AAAAA4 

000001 


o.novE 


AZ 7ZCA 

067650 


LOE = 


040000 


G 


1 *l lAI f T 

LSUNIT 


AA^AI O /^ 

002012 G 


LI 0071 


053034 


OiouNRs 


AAAAA4 
000001 


A iiCV 


A704 / "5 

072142 


LOOPCN 


002164 


G 


L lOOOO 


002132 


Li 0072 


053730 


OSBGNS- 


AAAAA4 

000001 


A Aff^ T 

O.ODT 


AZ C / / Z /• 

065446 G 


LOOP CO 


012760 




1 4 AAA 4 

LI 0001 


AA^I / / 

002144 


LI 0073 


055446 


OSDU = 


A A AAA 4 

000001 


A AP C T 

O.OFST 


066766 


LOOPFL 


003114 


6 


LI 0002 


005226 


LI 0074 


065444 


05ERRT= 


AAAAAA 

000000 


A Al A 

O.OLD 


AZZ 7Z / 

066364 


LOT s 


000010 


G 


L 10003 


011676 


LI 0075 


063140 


A^^Aii^l lab 

OSGNSW* 


AAAAA4 

000001 


A AA4 

O.OPl 


AZZ77A 

066370 


L$ACP 


002110 


G 


1 1 AAA/ 

L 10004 


A4 4 

01 1 726 


LI 0076 


072300 


Aft DA ff Alw 

OSPOIN^ 


AAAAA4 

000001 


A AB^ 

0.0P2 


066434 


LtAPT 


002036 


G 


1 4 AAAC 

Li 0005 


A4 4 7/ / 

01 1 744 


LI 0077 




A#CC Tl l«. 

OSScTU- 


A A AAA 4 

000001 


A ABO A 

0.0P2A 


066442 


L$AU 


022560 


G 


1 1 AAAZ 

LI 0006 


A4 4 

011752 


L10100 


073354 


O.ADRl 


A704 CZ. 

Or 21 56 


A AB AB 

O.ORAB 


AZCZ7/ 

065674 


LSAUT 


002070 


G 


1 4 AAA7 

LI 0007 


A4 4 77A 

011770 


L10102 


073362 


A All 

O.ALL 


A7AC/ O 

070542 


A AA A^ 

O.ORPC 


AZCZCO 

065652 


LSAUTO 


022764 


G 


1 4 AA^l A 

L10010 


A4 "^AAZ 

012006 


HEMADD 


013606 G 


A AC 

O.AS 


066236 


A ABBB 

O.ORRB 


AZC7A/ 

065704 


L$CCP 


002106 


G 


1 4 AA1 1 

LI 0011 


A4 *5A^A 

012020 


NENASC 


021351 


O.ASC 


A71 COC 

071525 


A A 

O.P 


A7i COi 

071521 


LSCLEA 


023040 


G 


1 1 AA1 

L10012 


A4 ^A70 

012072 


MENERR 


021276 


A A f 

O.ASCI 


067552 


A B^ C 

O.PCS 


065664 


LSCO 


002032 


G 


L10013 


A4 ^^/ "5 

012242 


NENRES 


021400 


A n A 

O.BACK 


066522 


A BBftiT 

O.PRNT 


A7AA4 A 

070010 


LSDEPO 


002011 


G 


L ^ J014 


A4 Z 

012756 


MESBFA 


002716 G 


A n A 1 1 

O.BALL 


A7A/ *iZ 

070426 


A BAA/* 

O.PROC 


AZ 77ZZ 

067366 


LtDESC 


003342 


G 


Li 001 5 


A4 7Z A/ 

01 3604 


MESSFN 


014633 


O.BD 


A74 COZ 

071526 


A BB AAA 

O.PROH 


A74 C7/ 

071534 


LtDESP 


002076 


G 


1 1 AA1 £. 

L10016 


A4 ^Z. 

013626 


MESHEA 


015016 


A AA/ A • 

O.BKP = 


A AAA 4 Z 

000016 


A A A 1 1 

O.RALL 


AZZ74 O 

066712 


LSOEVP 


002060 


G 


1 4 A A 1 7 

L10017 


A4 Z 7CA 

016350 


NHDR 


073020 


A AT 

O.BKPT 


AZZCCA 

066550 


A B^CB* 

O.RCSRs 


4 77CZA 

1 ff 560 


LSDISP 


072574 


G 


1 iAA^A 

LI 0020 


A4 Z. TCZ^ 

016356 


MHVEC - 


000250 


O.BRK 


A7AACZ 

070056 


A BAD » 

O.RDB • 


1 77CiL5 

If f 56c 


L$OLY 


002116 


G 


i 1 A A 1 

LI 0021 


A4 Z7Z/ 

01 6364 


HOVER 


072604 


A Di i 

0«dU 


A74 CAZ 

Of 1506 


A BC/* 

O.RcG 


A71 / / A 

Of 144 J 


L$DTP 


002040 


G 


LI 0022 


A4 Z 77Z 

016376 


HPR = 


174406 


A DVT 

O.BYT 


0662 f 4 


A BC/'T 

O.RcuT 


AZCCX/ 

06506^ 


LlDTYP 


002034 


G 


LI 0023 


A4 £. / ^A 

016420 


HSA.FR= 


000006 


A DWT 1 

O.BYTl 


066266 


A BCM 

O.REn 


A'^A7i ^ 
Ol Of Ic 


LSDU 


022656 


G 


L 1 0024 


A4 £.i i A. 

016446 


NSA.NO^ 


000000 


A ^ Al\ 

O.CAD 


A71 CIA 
Of 15 10 


O.aSB 


A7A^/ L. 

Of 0646 


LSDUT 


002072 


G 


LI 0025 


A4 ZZ.AZ 

016606 


NSA.NRs 


000004 


A ^Al\W 


A7i AC/ 

Of 1054 


A BCB 

O.RSR 


A7A^f 


LSDVTY 


003334 


6 


L 10026 


Ai 71 
017116 


nSA.VOs 


000002 


A ^1 ^T«» 

O.CLuTs 


AAAA7C 

000035 


A BCTT 


A 71 AAA. 

Of 1006 


L$EF 


002052 


G 


i 1AATA 

LI 0030 


A^^C4 A 

022510 


nSGEXP 


012010 G 


O.CLSc 


A71 7CO 

Of 1352 


A C 

o.s 


A71 CI 7 

07151 7 


I ^ kit i f 

LSENvI 


002044 


G 


LI 0031 


022654 


MSGLOO 


012716 G 


A rAMO 


Ait.771 5 

U6f f Ic 


A Cr AAl 

0«dCAN 


AZ.Z.A7A 

066030 


LSETP 


002102 


G 


L 1 0032 


022762 


MSGS T A 


012202 G 


A 

0. CR 


A71 C7i 

Of 1 531 


A r CMT 

O.Scnl 


AiLiL.07A 

066c30 


LSEXPi 


002046 


G 


1 i AA77 

L10033 


023036 


nSGSUB 


013574 G 


A rDCT 

0. CRcT 


U66356 


A CCA 


A7l CO/ 

Of 15c4 


LSEXP4 


002064 


6 


L 1 0034 


AOTAiLA 
0^3060 


HS.ATTs 


000006 




A71 AA' 




Ai^C7CA 
06>f 5h 


L*cXP5 


002066 


G 


LI 0035 


023522 


HS.EXT= 


000200 


A rD{ c 


Uf iH^U 


A CD AT 


A71 XLf\ 
Of 13m0 


L^HARD 


072246 


G 


LI 0036 


A71 Z.C/ 

U3 I65m 


MS.RSD= 


000001 


A rcDl 


A71 COD 

Uf 1 5cc 


A CTM 


AAA7AA 

0003hO 


LJHIWE 


002120 


G 


1 1AA77 
L1003f 


AO/ 7ZZ 

024366 


HS-RSF= 


000020 


0. CdRc 


A71 C01 

Uf l>c3 


A CliD 


A7ACCil 

Of 0056 


LJHPCP 


002016 


G 


1 1 AA/ A 

LI 0040 


025026 


NS.RST= 


000010 


A TT 


Uf ccUU 


A CliTT 


A7A7AA 
Of Of 00 


L$HPTP 


002022 


G 


1 t ^A/ 1 

Ll t/041 


AOC/ Z *5 

025462 


NBA • 


002000 


A n 


06 f 440 


A CLf rij 


A701 CA 

Of cl 50 


LSHU 


002124 


G 


1 1 AA/ ^ 

L 1 0042 


AOZ 04 *5 

026212 


NEUPAS 


022212 


A t\rt\ 
O.UCD 


066004 


A T 


A71 COA 

Of 1 5<:0 


LSiCP 


002104 


G 


i i AA/ 7 

L 10043 


A074 / A 

027140 


NODEV 


003062 G 


A Arr\ A 


06636c 


A TD f T 

0« TdI 1 


OOf 316 


1 t kl Y T 

LSINIT 


021762 


G 


1 i AA/ / 

L 10044 


A07/ CA 

027450 


NOINIT 


004233 


A Arff\D 

O.DCuB 


AZZ71 A 

066f 10 


A TDT 


AAAAOA 

OOOOcO 


LSLAOP 


002026 


G 


1 i A A/ C 

L 10045 


A7AA/ A 
030040 


NOJNTR 


004117 


A i\r AI 


0660cH 


A Tri c 
0. TCLo 


060 f CO 


L$LAST 


073350 


G 


1 4AA/^ 

LI 0046 


AC4 A*)/ 

051024 


NOITS 


002136 G 


0.DCD2 


AZZAOA 

0660c0 


A TrCD— 

0« 1 LoR- 


1 77CX/. 
1 f f 004 


1 SLOAO 


002100 


G 


1 4 AA/ f 

L 10047 


A7')Z AZ 

032606 


NOHAN 


021436 


A fVAT 

O.DOT 


A71 CI 0 

Of 151c 


A TAD •» 

0»IDd - 


1 f f >00 


L$LUN 


002074 


G 


1 iAACA 

L 10050 


033444 


NP.IR = 


000200 


A f\l MID 


ODf Hf c 


A Tl 

0« f L 


A71^7A 
Of l>f 0 


LtnREV 


002050 


G 


1 lAACi 

L10051 


A7/ 77A 

034330 


NP.LOO* 


AAAA/ A 

00004U 


A CC C 


AiL7A7A 

06f Of 6 


A TOTT 

0. 1 K 1 t 


A71 AAA 
Of 1000 




002000 


G 






NP.OUT= 


000100 


0 FRR 


065774 


0 TVEC= 


000014 


LSPRIO 


002042 


6 


L10053 


036016 


NP.URP= 


000020 


0.ERR1 


067072 


O.TYPE 


071324 


LSPROT 


021752 


G 


LI 0054 


036646 


NSI 


004050 


O.FCHR 


072152 


O.UIN 


072222 


LlPRT 


002112 


G 


L10055 


037510 


NSINIT 


004305 


O.FCNT 


072154 


O.UPC 


072136 


L$R£PP 


00206? 


G 


L10056 


040352 


NUL 


004425 


O.FTYP 


071170 


O.UPS 


072140 
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O.URO 

O.USP 

0.UB1 

O.UOFG 

O.URD 

0.URD1 

O.USCH 

O.XXX 

PASRPT 

PATCH 

PATDAT 

PC.ERA= 

PC.IER= 

PC.NOO- 

PC.REL= 

PC.REW= 

PICBCNT= 

PKHI = 

PKLOW = 

PKTADO 

PHTFRM 

PICTGET 

PKTHES 

PKTNEU 

PKTRAM 

PKTSSR 

PNT s 

PRAMPK 

PRBEXP 

PRBPfSG 

PRBREC 

PRBTOT 

PRBYTE 

PRI = 

PR I ADD 

PR I AO 

PRIBXO 

PRIEQU 

PRINT 

PRIPKT 

PRI RAM 

PRI TAD 

PRITSS 

PR I TO 

PRIXOR 

PRIOO = 

PRI01 = 

PR 102 = 

PRI03 = 

PRI04 = 

PRI05 = 

PR 106 = 

PRI07 = 

PRMESS 

PRnSGE 
PRPfSGO 
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072120 


PRMSG1 


015647 


READY = 
RECMS3 


000001 


072134 


PRMSG2 


015705 


002432 G 


066302 


PROAS C 


014713 


RECV 


002200 G 


071516 


PR1ASC 
PST32W 


014760 


REGSAV 


021036 


066252 


003104 G 


REWIND 


010434 6 


066316 


PUNIT 


022512 


RLBOOr 


073156 


067102 


PU.D11- 


000021 


RMCHBE- 


000167 


071 5U 


PW.D13= 


000022 


RMCHENs 


000200 


022256 


PW.D22- 


000020 


RMMSGBs 


000104 


072604 G 


PW.NOP- 


000000 


RMMS6E» 


000117 


021132 


PU.N01= 


000023 


RMPKTB* 


000020 


002400 


PW.RDE= 


000024 


RMPtCTE* 


000027 


002000 


PU.RDR= 


000001 


RMR = 


010000 


001000 


PU.RDS= 


000005 


RQMBAS= 


072604 


000000 


PW.RFI= 


000003 


RUPACK 


010530 


000400 


PW.WCT= 


000006 


SC = 


10C000 


000006 


PU.WFI- 


000004 


SCE = 


020000 


000004 


PW.WFM= 


000007 


SCME 


004711 


000002 


PU.UMI:' 


000010 


SDELAY 


010330 


007276 


PW.WNP= 


000011 


SEEK = 


000006 


007240 


PU.UTR= 


000002 


SELASC 


021344 


011730 G 


P.ACK = 
P.CMD = 


100000 


SELDAT= 


000004 


011754 G 


000037 


SEL2 = 


000002 


007333 


P.CONT= 


000012 


SETMAP 


020266 


004643 6 


P.CVC = 


040000 


SETU 


022310 


011700 G 


P.FMT s 


000140 


SFFMSG 


011746 6 


001000 G 
013630 


P.FOR»|s 


000011 


SFHERR 


003603 


P.GETS* 
P. IE - 


000017 


SFIERR 


003550 


016340 


000200 


SFINS6 


011666 6 

002134 G 


016206 


P.INIT= 


000013 


SFPTBL 


016342 


P.MODE= 


007400 


SIFLAG 


003106 G 


016273 


P.OPP = 


020000 


SIMSG 


011620 


015772 G 


P.POSI= 


000010 


SKIPT 


003332 


002000 G 


P.READ= 


000001 


SOFINI 


016644 G 


0C7712 


P. SUB = 


010000 


SPACE 


010140 G 


007762 


P.WRIT= 


000005 


SPM1 


072422 


007344 G 


P.WRTC= 


000004 


SPM4 


072461 


007612 


P.yRTS= 


000006 


SPM6 


0^2511 


072774 


GVP 


002152 G 


SPM7 


072541 


007072 G 


RAMASC 


013776 


SRO = 


177572 


007620 


RAMDAT 


002206 G 


SRI = 


177574 


010026 


RAMER 


010636 G 


SR2 = 


177576 


005264 


RAMERR 


016360 G 


SR3 « 


172516 


010076 


RAMEXP 


016400 6 


SSR a 


000200 


007474 6 


RA.1FHR 


014542 


STATCO 


012244 


000000 G 


RANFOR 


007650 


SVC66L« 


000000 


000040 G 


RAMHLD 


011020 


SVCINS= 


000000 


000100 G 


RAMI OP 


011024 


SVCSUB> 


000001 


000140 G 


RAMPD 


011075 


SVCTAG= 


000000 


000200 G 


RAMR5H 


011022 


SVCTSTs 


000001 


000240 G 


RAMS I Z 


002246 G 


SILSYM* 


010000 


000300 G 


RAMTAD 


016366 G 


SO.IDB- 


000010 


00034D G 


RBPCRA 


015130 


SO.IFB= 


000002 


014062 


RCVHIA 


002250 G 


SO.IFP= 


000001 


002264 G 


RCVLOA 


002252 6 


SO.ILD- 


000020 


01S422 G 


RDERR 


005104 


SO.ION- 


000040 


015602 


READ - 


000014 


SO.IRD- 


000100 
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SO.IRU= 
SO. ISPs 
S1.ICE= 
S1.IE0= 
SI.IFMs 
S1,IHE= 
S1.IID= 
S1.I1R= 
S1.J2R= 

51 . PAR: 

52. ATI= 
S2.BTIS 
S2.DIM- 
S2.ILW= 
S2.INR= 
S2.0UT= 
S2.UNDS 
TBLEND- 
TCOASC 
TCOCOD 
TEMPI 
TEMP2 
TERCLS= 
TESTNO= 
TEST5A 
TEXASC 
TFCASC 
TIMEXP 
TIMSGO 
TINfRR 
TKB = 
TKS = 
TMPBFR 
TNAM 
TPB = 
TPS = 
TRANST 
TSBA = 
TSBAH = 
TSBAL = 
TSDB = 
TSDBH - 
TSDBL - 
TSFCOD 
TSREJ = 
TSSDEF 
TSSR = 
TSSRBI 
TSSRFO 
TSSRH = 
TSSX 
TSTBLK 
TSTCNT 
TSTEND 
TSTFLA 
TSTLOO 
TSTPTR 



000004 

000200 

002000 

010000 

001000 

000400 

004000 

020000 

04C000 

100000 

00C010 

000004 

000200 

0001 00 

000020 

000040 

000003 

003030 

006177 

006400 

00S064 

003066 

000016 

000004 

072632 

006136 

006240 

016422 

016450 

011653 

177562 

177560 

002576 

017602 

177566 

177564 

002134 

177776 

^77777 

177776 

177776 

177777 

177776 

006740 

000006 

006307 

000000 

003400 

006116 

000001 

003716 

002720 

002162 

01 761 S 

002260 

017354 

002262 



TSTSET 

TST25I 

TST26I 

TST27I 

TST28I 

TTIBfR= 

TTICSR= 

TTIVEC= 

TTOBFRs 

TTOCSRs 

TTYPRT 

TUV2A 

TSARGCs 

TSCODE= 

rSERRN- 

T$EXCP= 

T$FLAG= 

T$FREE= 

TSGMAN: 

T$HI«.I = 

T$LAST= 

T$LOLI= 

T$LSYM= 

T$LTNO- 

T$NEST= 

TSNSO - 

TSNSI = 

TSNS2 s 

TSPCNT= 

TfPTAB= 

T$PTHV= 

T$PTNU= 

T$SAVL= 

T$SEGLs 

T$SIZE= 

T$SUBN= 

T$TA6L= 

TSTAGN== 

T$TERP= 

T$TEST= 

T$TSTM= 

T$TSTS= 

T$$AU - 

TSSAUT: 

TSSCLEs 

TS«OAT= 

T$$DU = 

T$$HAR= 

T$SHU ' 

T$SINI: 

TSSMSG= 

T$$PC = 

T$$PROs 

T$$PTA= 

T$$RrT= 

TSSSOF: 

TSSSRV: 



017406 6 

031452 

050627 

060623 

C65241 

17756? G 

177560 G 

000060 G 

177566 

177564 

073004 

002000 G 

000003 

001130 

000656 

000000 

000040 

073362 

000000 

000007 

000001 

000000 

010000 

000004 

000000 

000000 

000005 

000002 

000000 

01 01 CI 

000001 

000001 

177777 

y77777 

000005 

000001 

y77777 

010103 

000005 

000004 

^77777 

000001 

010031 

010033 

010034 

010102 

010032 

010076 

010000 

010030 

010025 

0C0001 

010027 

010101 

010035 

010077 

010026 



CZTUYAO TU80 FRONT END PRT C 
SYMBOL TABLE 



MACRO Ml 200 29-nAR-83 13: A3 PAGE 



TSSSUB: 
TSSSU = 
T$$TESs 

T1 

T1.1 

T1.2 

T1.3 

T^.4 

T1.5 

T1.6 

T1.7 

T2 

T2.1 

T2.10 

T2,11 

T2.12 

T2.13 

T2.U 

T2.15 

T2.2 

T2.3 

T2.A 

T2.5 

T2.6 

T2.7 

T2.8 

T2.9 

T210FL 

T25BFR 

T25BF2 

T25BNC 

T25B0T 

T256S0 

T25BS1 

T25CNT 

T25CN2 

T2SC0N 

T250AT 

T250LY 

T25LOO 

T25NEF 

T25NET 

T250FL 

T25PAC 

T25PK2 

T25PK3 

T25Re 

T25RES 

T25RIB 

T25RN 

T25RT2 

T25RT3 

T25RWN 

T25SSR 

T25$Z 

T25S2 

T25S3 



010075 
010001 
010074 
0236AA 
023704 
02AA04 
02S0AA 
025500 
026230 
027156 
027A66 
031656 
031722 
041236 
0421 04 
042742 
043662 
044660 
045230 
032624 
033462 
034346 
035266 
036034 
036664 
037526 
040370 
030264 
030120 
030240 
030742 
030447 
030240 
030241 
030260 
030256 
030252 
030110 
030262 
023704 
031115 
030603 
031326 
030100 
030210 
030230 
030232 
031470 
031175 
030246 
031562 
031624 
031257 
030306 
030236 
030242 
030244 



T25TH 

T25UB 

T2SU0C 

T25yDE 

T25UDR 

T25UN6 

T25UNH 

T26AM3 

T26BA 

T26BFR 

T26BF2 

T26B0T 

T26BS0 

T26BS1 

T26CNT 

T26CNU 

T26DAT 

T260Ly 

T26DTA 

T26E0T 

T26L0N 

T26L00 

T26L0P 

T26L0Q 

126L0R 

T26NEF 

T26NEQ 

T260FL 

T26PAC 

T26PBP 

T26PK2 

T26PK3 

T26RB 

T26RDF 

T26RES 

T26RN 

T26RNC 

T26RRF 

T26RRG 

T26RSZ 

T26RT' 

T26RT3 

T26RUN 

T26SC 

T26SSR 

T26S2 

T26S2 

T26S3 

T26TB 

T26TRL 

T26VCK 

T26WB 

T26U0C 

T26U0D 

T26UDE 

T26WD* 

T26UN6 



030514 
0^0232 
031401 
030367 
030250 
030657 
031032 
047526 
050066 
045740 
046060 
047115 
0'>6060 
046061 
046076 
046100 
045730 
046104 
047162 
047250 
050230 
031722 
050312 
046726 
046601 
046174 
050550 
047575 
045720 
050374 
046030 
046050 
046052 
046256 
050640 
046066 
047453 
046325 
0^6422 
046102 
050732 
050774 
047404 
046517 
047007 
046056 
046062 
046064 
047327 
050462 
050013 
046052 
047740 
047650 
047043 
046651 
046106 



T26USS 

T27AM3 

T27BA 

T27BFR 

T27BF2 

T27B0T 

T27BS0 

T27BS1 

T27CNT 

T27CNU 

T?7C0N 

T27DAT 

T270LY 

T27DTA 

T27E0T 

T27L0N 

T27L00 

T27L0P 

T27L00 

T27L0R 

T27NEF 

T270FL 

T27PAC 

T27PBP 

T27PK2 

T27PIC3 

T27R8 

T27RDF 

T27RES 

T27RN 

T27RNC 

T27RR? 

T27RT2 

T27RT3 

T27RUN 

T27SC 

T27SCF 

T27SSR 

T27SZ 

J27S2 

T27S3 

T27TIH 

T27T« 

T27TRL 

T27TSA 

T27VCK 

T27WB 

T27W0C 

T27W0D 

T27WDE 

T27W0F 

r27UDR 

T27WNG 

T27URF 

T27USS 

T28BFR 

T28BF2 



05C141 

057167 

057527 

055530 

055650 

056541 

055650 

055651 

055666 

055670 

055662 

055520 

055672 

060526 

056711 

057671 

051076 

057753 

056335 

056210 

060211 

057236 

055510 

060035 

055620 

055640 

055642 

055762 

060644 

055656 

057114 

056031 

060736 

061000 

057045 

056126 

060307 

056416 

055646 

0556S2 

055654 

056634 

056770 

060123 

060364 

057454 

055642 

057401 

057311 

056452 

056260 

055660 

055674 

060446 

057602 

063220 

063340 
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T28B0T 
T28BS0 
T28BS1 
T28CNT 
T28CNU 
T28CON 
T280AT 
Tr8DLY 
T28DTA 
T280TR 

T28inv 

T28L00 

T28L0Q 

T280FL 

T28PAC 

T28PBP 

T28PK2 

T28PK3 

T28R6 

T28RDF 

T28R0G 

T28RES 

T28RIB 

T28RN 

T28RRn 

T28RRN 

T2iRRP 

T28RT2 

T38RT3 

T28RUN 

T28SSR 

T28SZ 

T28S2 

T28S3 

T28TH 

T28THK 

T28VCK 

T28UB 

T28UDC 

T28W0E 

T28WDF 

T28U0R 

T3 

T3.1 

T3.2 

T3.3 

T3.4 

T3.5 

T4 

T4.1 
UAM ' 
UNITN 
I'NREC = 
USI 
UAITF 
WC.IFAs 
UC.IFE- 



064177 

063340 

063341 

063366 

063370 

063362 

063210 

063372 

065144 

065062 

063346 

061070 

063754 

064370 

063200 

063451 

063310 

063330 

063332 

063534 

063615 

065266 

063374 

063356 

064647 

064725 

065004 

065360 

065422 

064321 

064035 

063356 

063342 

063344 

064244 

064575 

064522 

063332 

064443 

064106 

063677 

063360 

051026 

051076 

051464 

052236 

053052 

053746 

061024 

061070 

000200 

002150 

000006 

004021 

017120 

000200 

0000C2 



ur.iGO- 

UC.IRF= 
UC.IRWs 
WC.I0T= 
WC.IITs 
WC.ISR« 
WF.IEOs 
UF. lERs 
UF.IHI- 
UF.IRE- 
UF.iUFv 

VF.IWRs 

UF.I3R= 

UF.I4RS 

URTCHR 

URTERR 

URTHSG 

XFERAS 

XNXn 

X0R6F0 

XORFOR 

XSTO = 

XS^I s 

XST2 « 

XST3 = 

XST4 s 

XSOBOTr 

XSOCON 

XSOEOT= 

XSOIE = 

XSOlLAs 

XSOILC= 

XSOLET= 

xsonoTs 

XSOMEF: 

XSOONL- 

XSOPEO> 

XSORLL- 

XaORLS- 

XSOTNK- 

XSOVCKs 

XSOWLEs 

XSOULKs 

XS1C0N 

XS2C0N 

>'S3C0N 

xxcom 

XSALUAs 
XSFALSs 
Xf0FFS= 
XSTRUEs 
XKCORs 
Xl.DLTs 

XI .mz- 

XI .RBP- 
Xl.SPAs 
XI.UNC* 



000001 

000010 

000004 

000100 

000040 

000020 

OOC010 

000004 

000200 

000040 

000020 

0C010O 

000002 

000001 

010332 6 

005011 

004754 

U16610 

017274 

007426 

00754^ 

000006 6 

00C010 6 

000012 6 

000014 6 

C00016 G 

000001 

000040 

000400 

001000 

020000 

000200 

002000 

000100 

000010 

010C00 

040000 

100000 

000020 

004000 

000004 

015242 

015307 

015354 

003070 G 

000000 

000040 

000400 

000020 

020000 

100000 

017375 

000400 

04000C 

000002 
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0 S 

MACRO Ml 200 29-MA')-83 13:43 PAGE 138-S 



SEQ 261 



X2.SPA- 03SA00 
X2.UNI: 000007 
X2.UCF: 002000 
X3.0CKS 000010 



X2.BUFS 000100 
X2.EXTC 000200 
X2.0Pn^ 100000 
X2.RCE- 040000 
X2.REV* 000077 

. ASS. 073362 000 
000000 001 
ERRORS DETECTED: 0 

VIRTUAL HENORY USED: 36912 WORDS ( US PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:14:32 

C2TUYA.BIC.C2TUYA/-SPsSVC.MLB/ML,C2TOYA.MAC 



X3.MBZ- 000006 
X3.MDE= 177400 
X3.0PI- 000100 
X3.REV- 000040 



X3.RIB- 000001 
X3.SPAS 000200 
X3.TRFS 000020 
X4.HSPS 100000 



X4.MB2« 017400 
X4.RCE- 040000 
X4.TSMS 020000 
X4.WRCS 000377 



